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INTRODUCTION 


OFFICER  ASSIGNMENT  SVSTE*  (OASYS)  STUDY 
VOLUME  II  -  OASYS  USER  "ANUA|_ 

The  OFFICER  ASSIGNMENT  SYSTEM  consists  of  two  models  -  the 
KOMEN  OFFICER  STRENGTH  ODEL  (  W 0 S *)  and  the  AGE  BY  GRADE  AND  PAIR 
MODFL  (A6E9GPR).  This  manual  represents  the  only  documentation  for 
either  of  the  two  models.  The  OASYS  user  should  be  familiar  with 
personnel  policies  and  changes  made  to  those  policies.  Every 
effort  has  been  made  to  ensure  that  policy  changes  will  only 
affect  the  data  files  used;  thus  code  changes  should  not  oe 
necessary . 

All  capitalized  keywords  used  in  this  document  represent  the 
actual  variable  names  used  in  the  source  code  for  both  models  and 
the  auxiliary  proqrams. 

This  document  consists  of  six  sections  -  inout  requirements 
and  associated  data  creprocessors,  W0$m  run  options,  runstream 
description,  the  WQSM  code,  the  MODIFY  CONTINUATION  RATES  source 
code,  and  this  introduction. 


2.  1 NPUT  REQUIREMENTS 

This  section  details  all  incut  files  used  to  implement 
OASTS.  The  section  is  split  into  t*o  subsections*  the  first  being 
the  toOWEN  OFFICER  STRENGTH  M0DEL  input  files*  ana  the  second  deals 
with  AGE  P  Y  GRADE  AND  PAIR  incut  files.  Each  subsection  contains 
co c urn e n t a t i on  for  the  files  used*  their  description*  and  a  short 
cescription  of  the  preprocessor  or  input  routines  used.  Use  this 
section  as  a  guide  for  file  preparation  or  as  a  manual  for 
understanding  the  *OSM  and  AGE3GPR  code. 


wCMFN  OFFICER  STRENGTH  mQOEL  (“0SM) 


WOSM  uses  the  following  data  files  : 

PEPSACS  OFFICER  AUTHORIZATIONS 
duty  specialty  inventory 

INSPEC/ADSPtC  INVENTORY 
SPECIALTY  COOES 
CASUALTY  REPLACEMENT  RATES 
PREFERRED  DISTRIBUTION  RATES 


2.1.1.  PFRSACS  OFFICER  AUTHORIZATIONS  (  A  U  T  H  ) 


2.1 .1 .1 .  FILE  DESCRIPTION 


The  auTh  file  contains  authorizations  data  extractea  from  the 
PERSACS  aata  base.  It  is  important  to  the  operation  of  this  system 
that  all  valid  three-digit  specialty  codes  be  reoresented  in  this 
file.  Each  three-diait  specialty  code  (NOS)  has  four  loaical 
records  of  data  images  associated  with  it.  These  data  imaaes  and 
their  WOS*  data  names  are: 


Three-Digit  Specialty  Code  ID 
Total  Authorizations 
Male-Only  Authorizations 
Long-Tour  Authorizations 
Short-Tour  Authorizations 
CONUS  Authorizations 
Male-Only  Long-Tour  Authorizations 
Male-Only  Short-Tour  Authorizations 
Male-Only  CONUS  Authorizations 
Total  TAADS  Authorizations 
Long-Tour  TAADS  Authorizations 
Short-Tour  TAADS  Authorizations 
CONUS  TAADS  Authorizations 


(NOS  ) 
(STRTH) 
(COMBAT) 
(LONG) 
(SHORT  ) 
(CONUS) 
(CPTLNG) 
(CETSHT  ) 
(C9TCNS  ) 
(TAADS)  * 
(LT A  ADS  )  * 
(STA ADS  )  * 
(CTA ADS  )  * 


♦NOTE  -  TAADS  authorizations  were  not  implemented  in  this 
version  of  WOSM;  however,  they  were  included  for  future  use  should 
the  need  arise. 


2. 1.1. 2.  RECORD  DESCRIPTION 


a  logical  record  consists  of  four  physical  records.  The  first 
physical  record  has  the  following  format  : 


NOS 

STRTH  (LT  -  GEN) 
COMBATlLT  -  GEN) 
LONG  (LT  -  GEN) 


COLUMNS  1  -  3 
COLUMNS  7  -  42 
COLUMNS  A3  -  75 
COLUMNS  79  -  114 


The  second  physical  record  contains  : 

SHOPT  <LT  -  GEN)  COLUMNS  7-42 

CONUS  (LT  -  GEN)  COLUMNS  43  - 

CPTLNG(LT  -  GEN)  COLUMNS  7©  -  114 


The  third  physical  record  format  is  : 

CBTSHT (LT  -  GEN)  COLUMNS  7-42 

CBTCNS (LT  -  GFN)  COLUMNS  43  -  73 

TAADS  (LT  -  GEN)  COLUMNS  70  -  114 


The  fourth  ana  final  physical  record  format  is  : 

LTAADS(LT  -  GEN)  COLUMNS  7-4? 

STAADSUT  -  GEN)  COLUMNS  4  3  - 

CTAADS(LT  -  GFN)  COLUMNS  79  -  114 


-4 


Note  that  each  grade*  LT  through  6EN*  uses  si*  fields.  Also, 
this  version  of  wOS*  does  not  consider  the  grade  of  GFN  for  any  of 
the  computations;  however,  the  G  £  N  subfield  must  still  oe  present 
since  the  preprocessor  makes  use  of  this  field  as  a  dummy  field. 


2. 1.1. 3.  PREPROCESSOR 


2. 1.1. 3.1.  THE  PROGRAM 


The  followino  ASCII  FORTRAN  orogram  reads  the  P  E  R  5  a  c  S  auTh 
file  and  outputs  a  blank  format,  binary  file  -  file  26.  wOS* 
reads  this  binary  file  in  the  SUBROUTINE  data, 

INTEGER  CTRI,CTR0,C0NPAT(6),L0NG(6),STRTH(6), 

1SH0RT (6) , CONUS (6) ,C9TLNG(6) ,  C  9  T  S  H  T (6) ,CBTCNS  l  6)  , 
2TAAbS(fc),LTAA0S(6),CTAA0SC6),STAADS(6) 

C  T  R  I  =  C 
C  TR  0  =  C 

1  READ  (1C,3,END=2)  N 0 S , S T R T H , C 0  HP  A T  ,  L 0 N G 
READ  (1C, 4)  SHORT, CONUS,  CBTLNG 

READ  (10,4)  CBTSHT  ,  CBTCNS  ,  TAADS 
READ  (10,4)  LTAADS , STAADS , CTAADS 
CTR I=CTPI+4 

WRITE  (26)  NOS, STRTH,COM3AT, LONG, SHORT, CONUS, CBTLNG, 

1C9TSHT, CBTCNS, TAADS, LTAADS, STAADS, CTAADS 
CTkO=CTRO+1 
GO  TO  1 

2  WRITE  (6,5)  CTRI.CTRO 
END  FILE  26 

RE.IND  26 
STOP 
C 

3  FORMAT  (A3, 3X, 1916) 

4  FORMAT  (6X.18I6) 

5  FORMAT  (1H0,4X,'FILE  COMPLETE', 4x, 16, 2X, 'RECORDS  READ', 

14X , 16 , 2X , 'RECORDS  WRITTEN*) 

END 


2. 1.1. 3. 2.  RUNSTREA!" 


Tn  order  to  create  the  binary  file  26  the  following  runstream 
mustbeused: 

S A  S  G  ,  T  10. 
a  A  S  G , T  26. 
iED  AUTH . F ILE  ,  1C. 

EXIT 

a  X  Q  T  PREPROCESSOR .A°S0LUTE 


2.1.2.  DUTY  SPECIALTY  INVENTORY  (DTSPEC) 


2.1 .2.1 .  PILE  DESCRIPTION 


The 

currently 
tains  the 
physical 
The  data 


DTSPEC  file  contains  the  f eta  le  officer  population 
serving  ^  i  n  a  particular  specialty.  Also,  the  file  con- 
specialty's  percentage  in  THS.  This  file  contains  a 
record  for  each  valid  three-diqit  specialty  code  (WCS). 
images  associated  with  each  record  are  : 


Two-Digit  Specialty  Code  ID 
Three-Digit  Specialty  Code  ID 
THS  Percent aoe 
female  Content  By  Grade 


<IC"F) 

(  m  o  S  ) 
(THS  FAC  ) 
(CONTNT  ) 


NOTE  -  Valid  specialty  codes  in  the  AUTH  file  (NOS)  are  matche 
with  valid  specialty  codes  in  the  DTSPEC  file  ( 0  S  5  .  If 
mis-match  occurs,  then  the  data  for  that  specialty  is  skippea; 
hence,  care  should  be  taken  when  creating  either  of  these  t.o 
files.  Also,  the  DTSp£C  file  can  Oe  used  as  a  oriver  to 
selectively  omit  certain  specialty  codes  from  processing. 


2. 1.2. 2.  RECORD  DESCRIPTION 


the 


a  loaical  and  chysica 
following  aata  formats 


record  of  the  DTSPEC 


file  consists 


c  f 


I  C  M  F 
>1 C  S 

THS  FAC 

CONTNTILT  -  GEN) 


COLUMNS  1  -  2 
COLUMNS  3-5 
COLUMNS  10  -  11 
COLUMNS  1c  -  CU 


NOTE 


A  s 


in  the  AuTH  file 


the  grade  of  GEN 


not  usee. 


2. 1.2. 3.  INPUT  ROUTINE 


The  DTSPEC  file  is  entered  into  w  0  S  v  vie  the  suoroutine 
FILER.  °efer  to  section  5  for  information  reoardino  this  file  ane 
it's  incut  code. 


2 . 1 .2 .3 .1  .  RUNSTREAM 


The  following  runstream  creates  file  25  for  input  into  W  C  S  M 

ciiASG,T  25. 
a  E  D  DTSPEC. FILE, 25. 

EXIT 


o>  a. 


2.1.3 


INSPEC/ ACSPFC  INVENTORY  (DESIG) 


Z.1  .2  .1  .  F  ILE  DESCRIPTION 


The  DESIG  file  contains  the  current  female  officer  population 
by  grade,  year-of-service,  primary  specialty,  and  seconaary 
specialty  for  grades  LT  through  COL  spanning  over  thirty  years. 
Depending  on  the  frequency  of  seconaary  specialties,  a  primary 
specialty  can  have  from  one  to  any  number  of  logical  records.  Tne 
data  images  associated  with  a  single  physical  record  are  : 


Single-Digit  Grade  ID 
Two-Digit  y e a r -0 f - S e r v  i  c e  ID 
Two-Digit  Primary  Specialty  ID 
Two-Digit  Secondary  Specialty  ID 
Four-Digit  Population  Amount 


(GRADE) 

(  I  YR  ) 

(SPEC (1 ) ) 

(SPEC ( I)  ,  1  =  2  .  .1 1 ) 
(INPUT (I), 1=1. .1C) 


NOTE  -  The  number  of  additional  specialties  per  physical  recora  is 
limited  to  ten.  If  the  number  of  additional  specialties  exceeds 
ten  then  a  new  physical  record  should  be  createa  with  the  same 
GRADE ,  I YR ,  and  SPEC ( 1 ) . 


2. 1.3. 2.  RECORD  DESCRIPTION 


A  logical  record  can  consist  of  any  number  of  physical 
records  where  each  physical  record  can  contain  from  one  to  ten 
additional  specialties.  The  following  physical  record  description 
defines  a  variant  number  of  additional  specialties. 


GRADE 
I  VR 

SPE  C  (  1  ) 
SPEC (2) 
INPUT(1 ) 
SPEC  (3) 
INPUT (2) 


COLUMNS  1 
COLUMNS  2-3 
COLUMNS  4  -  5 
COLUMNS  7-8 
COLUMNS  9-12 
COLUMNS  14  -  15 
COLUMNS  16  -  19 


NOTF  -  The  GRADE  identifier  is  1  =  COL,  2  =  LTC,..,5  =  LT  and  the 
I Y  R  identifier  is  1  =  present  year,  2  =  present  year  -  1,  ...,32  = 
present  year  -  29, 


2.1. 3. 3.  PREPROCESSOR 


2. 1.3. 3.1.  The  PROGRAM 


The  following  ASCII  FORTRAN  program 
produces  an  input  file,  file  12,  for 
file  produced  is  the  female  officer 
specialty  and  grade. 


reads  the  DESIG  file  and 
the  W  0  *  ¥  model.  The  input 
population  py  primary 


1 


PARAMETER  NN=36 . NT  =  NN*  1 

INTEGER  INVPR(NT,6),A(NN),INV(5,NN,NN),SU¥.M(NN), 
1INVGRCNN,NN),I,J,K,NZER0,JNV$UM,IC0L(6) 
data  C  A ( I ) .1=1, NN)  /II, 12. 15,14, 15. 21  .  22, 2  5. 27  -  31  . 
136, 37, 41, 42, 43,44, 45, 46, 48, 49, 51, 52, 53, 5a, 71,72,73 
275,81 ,82,91,92,95,97/ 

N  Z  E  P  0  =  0 


CALL  inprgr 
do  ?  *  =  1,5 
DO  1  1  =  1  , N  N 

DO  1  J  =1  , NN 

INVGP ( I , J )  =  INV (6-f  ,  I  ,  J  ) 


f 


-7 


call  sum 

I  N  Y  P  R (NT  ,  K  ) =  I  N  V  $  U  m 
DO  2  1=1 ,NN 
INVPR  (  I  ,  K  )=SU**(  I  ) 

2  INVPR ( I ,6)  =  INVPR( I , 6) +SUMM  (  j  ) 

DO  ?  I = 1  ,  5 

3  INVPR(NT,6)=INVPR(NT,6)*INVPR(NT,I) 

DC  5  1=1. NN 

5  WRITE  (12.14)  A ( I)  ,  ( I N VPR (  I  ,  J  )  ,  J =5 , 1 ,  1 )  , N Z E R 0 

ENDFILE  12 
WRITE (6,11  ) 

WRITE (6,12) 

DO  15  J=1 ,6 

19  I C  OL ( J ) =0 

DO  20  1=1, NN 
DO  21  J  =  1  ,  5 

IC0L(6)=IC0L(6)*INVPR(I,J) 

21  ICOL(J)=ICOL(J)-»INVPR(I,J> 

20  WRITE (6,13)  A ( I ) ,  ( INV»R (I , J ) , J =5, 1 ,-1 ) ,NZ ERO,  INVPR  (  I  ,  6  ) 
wRITE(6,26)(ICOL(J),J=5,1,-1),N7ERC,ICOL(6) 

WRITE (6,27) 

WRITE (6,28) (INVPR(NT , I ) ,1=5,1 ,-1) ,NZERO.INVpR (NT  ,6) 
WRITE (6,29) 

WRITE(6,30)(ICOL(I)-INVPR(NT,I),I=5,1,-1),NZEPO,ICOL(f) 

1-INVPR(NT,6) 

WRITE  (6,10) 

STOP 


C 

14 
10 
1  1 
12 

1  3 
26 

27 

28 
25 
30 
C 

c 

c 

c 


FORMAT  (I2.1X.6I5) 

FORMAT  ('1', 'FEMALE  CONTENT  (LT-GEN)  AT  LOGICAL  UNIT  12') 
FORMAT  ( '1 1 1 X .' TOTAL  WOMEN  OFFICERS  DESIGNATED') 

FORMAT  ( '0' ,  1  X  ,  SPEC' .  3X,  '  L  T  '  ,  ?  X  ,  '  C  P  T  '  ,  3  x  ,  '  M  A  j  '  ,  3  X  ,  '  L  T  C  ' 
13X,'r.OL',3x,'GEN',5X,,ROW  TOT') 

FORMAT  (*  '.2X,I2,1X,6I6,6X,I6) 

FORMAT('0,  TOTAL',  616, 6X,  16) 

FORMAT ( '0'  ,  'ACTUAL' ) 

FORMAT('  ',  'INVNT  j6I6,6X,  16) 

FORMAT ( 'O'. 'ADSPECj 

FORMAT (  '  ',  'INVNT'  ,6I6,6X,  16) 


SU3R0UTINE  INPRGR 

INTEGER  GRADE,SPEC(11),I\PUT(10),I,J,K,L,m,N,LAST5P.IYR 
LASTGR=1 

READ  (5 , 7 , E  ND  =  5 )  GRADE, IYR,$PEC(1),(SdEC(I),INPUT(I-1) 

1,1=2,11) 

DO  4  *  =  1  f  1  -j 

IF  (SPEC(M)  .EO.O)  GO  TO  1 
IF  (SPEC (M) . E  Q  «  4  7 )  GO  TO  4 
IF  (SPEC (M)  .EQ.70)  GO  TO  4 
N=SPEC (M) 

CALL  SPNEW(N) 

IF  (M.  EQ.  1 )  GO  TO  3 
L  =  N 


J=6-GRADE 

IF  (GRADE. EQ.LASTGR)  GO  TO  2 
LASTGR=GRADE 

2  INV(J,K,L)=INV(J,K,L)+INPUT(W-1) 

GO  TO  4 

7  K  =  N 

4  CONTINUE 
GO  TO  1 

5  RFTURN 


C 

c 

C 

7 

C 

C 

C 

C 


FORMAT  (11.12, 12.10dx.T2, 14)) 


subroutine  spnew(n) 

INTEGER  I 
DO  10  1=1, NN 


, 


I F ( N.EG. A (  I  )  )  N  =  I 
1C  CONTINUE 
RETURN 
C 
C 

c 

c 

SUBROUTINE  SU* 

INTEGER  I,J 
INVSU^C 
DO  2  1=1,  NN 
SU1« (  I  ) =C 
DO  1  J  = 1  , N  N 

SUMW(I)=SUH*(I)+INVGR(I,J)+INVGR(J,I) 

1  INVSUM  =  INVSUM+ INVGR (  I  ,  J  1 

2  SUM"*  (  I  )  =SUMM  (  I  )-IN  VGR  (  I  ,  I  ) 

RETURN 

END 


2 .1 .3.3.2,  RUNSTREA* 


The  foll.ot.ina  runstreair  is  used  to  create  the  incut  *  i  t.  e  1? 
using  the  preprocessor  code  : 

i  A  $  G  ,  T  12. 

*XGT  PREPROCESSOR .APSOLUTE 
ai  A  D  D  ,  E  DESIG.EILE 
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2.1.4.  SPECIALTY  COOES  (SPECS) 


£.1.4 

.  1  . 

F ILE  DESCRIPTION 

The 

SPFCS 

file  is 

a  list 

of  all 

valid  t 

codes 

ana 

their 

accession/nonaccession 

status 

phy  S  i 

c  a  l 

records 

is  equal 

to  the 

numbe  r 

of  va  l  i 

A  phy 

s  i  c  a  l 

r  e  c  o  r  d 

consists 

of  : 

wo-d i g  i  t  s  c  e  c  i  a  1 1  y 
.  The  number  of 
d  SDec i a  l  ty  coae s  . 


Two- Digit  Specialty  Code  ID 
Single-Digit  Nonaccession  Flag 


( C"FT63 ) 
(NONACC  ) 


NOTE  -  Tt  is  very  important  that  all  valid  specialty  codes  oe 
listed  in  this  file.  The  DTSPEC  and  DESIG  files  use  the  threedicit 
specialty  code  identifier  to  drive  wOS*  through  the  computation 
phase,  while  the  SPECS  file  drives  UOSM  through  the  PREFERRED 
DISTRIBUTION  anc  AUTHORIZATIONS  phases. 


2. 1.4. 2.  RECORD  DESCRIPTION 


*  looical  and  physical  record  is  constructed  by  the  followina 
data  fonats  : 

C  M  F  T  A  e  COLUMNS  1  -  2 

comma  COLUMNS  3 

NONACC  COLUMNS  4 

NOTE  -  CMFTAB  and  NONACC  are  arrays  which  are  indexed  according  to 
a  specialty  code's  numeric  position  in  the  seouence  of  specialty 
codes;  thus,  this  file  should  be  constructed  in  lowest  to  highest 
order. 


2. 1.4. 3.  INPUT  ROUTINE 


The  SPECS  file  is  entered  into  WOSM  via  the  main  Drooram. 
Refer  to  section  5  for  more  information  concern  i  no  this  file. 


ii  -ilnBAillflnni 


i 


2.1.5.  CASUALTY  RrPLACEMFNT  OATES  (CASREP) 


2. 1.5.1.  FILE  DESCRIPTION 


The  CASREP  file  consists  of  casualty  r e d  l  a c e me n t  rates  for 
D*!",  D  ♦  6  0  *  ana  D*90  (Jays  of  war  Dy  three-digit  specialty  code. 
Each  record  consists  of  the  following  data  images  : 


Two-Digit  Specialty  Code  ID  ( I  C  *  F  ) 

Three-Digit  Specialty  Code  ID  (  M  0  S  ) 

D*T0  Casualty  Replacement  Rate  (RCAS) 

D ♦ 6 0  Casualty  Replacement  Rate  (RCAS) 

D  ♦  90  Casualty  Replacement  Rate  (RC*S) 


NOTE  -  Only  one  RCAS  per  specialty  is  read  into  WOSM  .  This  is 
achieved  by  using  a  specific  run  option  (see  section  4). 


2. 1.5. 2.  RECORD  DESCRIPTION 


a  logical  and  physical  record  is  built  by  usina  the  followina 
Qata  format: 


ICMF 

COLUMNS 

1  -  2 

MOS 

COLUMNS 

4-6 

RCAS  (  D  t  3  0 ) 

COLUMNS 

11  -  1  6 

RCAS(D*60) 

C  PLUMNS 

21  -  2i 

RCAS  (D+9C) 

COLUMNS 

31  -  ’6 

N  0  T  F 

-  The  array  CASRAT, 

in  wPS*'s  main 

p  roa  r  am  , 

is  Duilt  usin 

the 

IC"F  and  MOS  as 

indices.  It  is 

of  extreme 

importance  tha 

these  parameters  reflect  the  same  two  and  three-digit  codes  use 
in  the  DcSIG,  DTSPtC  and  SPrCS  files. 

2. 1.5. 3.  INPUT  ROUTINE 


The  selectea  casualty  replacement  rates  are  input  into  the 
•OS*  model  via  the  main  program.  The  selection  of  a  casualty 
replacement  rate  aepends  on  the  run  option  used  on  the  aX3T  care. 
Refer  to  section  4  and  section  3  for  more  information  concerning 
this  tile. 


U.  rt\L) 


2.1.6.  PREFERRED  DISTRIBUTION  RATES  (PREDIS) 


2. 1.6.1.  FILE  DESCRIPTION 


The  PREDIS  Tile  contains  the  preferred  distribution  of  inter¬ 
changeable  spaces  set  aside  for  women  officers.  It  is  used 
primarily  to  rearrange  those  spaces  set  aside  for  women  officers 
based  uoon  a  predetermined  distribution  when  the  present  wOS* 
distriDution  does  not  satisfy  the  needs  of  personnel  management. 
This  file  can  only  be  c  reateo  after  a  •  0  S  *  run  has  been  completed 
and  the  distribution  of  female  spaces  is  known.  The  PREDIS  file 
contains  a  record  for  each  valid  two-digit  specialty  code  where 
the  fields  of  this  record  are  defined  as  : 

Two-Digit  Specialty  Code  ID  (ISP) 

Five-Digit  Distribution  Rate  (PCT) 


2. 1.6. 2.  RECORD  DESCRIPTION 


ach  record  is  built  using  the  following  data  format 


ISP 

PCT 


COLUMNS  1  -  2 
COLUMNS  2-7 


NOTE  -  Care  must  be  taken  to  ensure  that  all  two-digit  specialty 
codes  used  in  the  PREDIS  file  are  the  same  two-digit  SDecialty 
codes  used  throughout  the  system. 


2. 1.6. 3.  INPUT  ROUTINE 


The  PREDIS  file  is  entered  into  «/0SM  via  the  SUBROUTINE 
PREDIS  only  if  the  proper  run  option  was  set  (see  sections  r  3 ,  "A* 
and  ) . 


2.1.7.  MISCELLANEOUS  INPUTS 


2. 1.7.1.  TOUR  LENGTHS  ( S TL , L TL , M A  X C L  ) 


The  three  tour  lengths  have  been  removed  from  the  WOSM  code 
as  constants.  They  can  now  be  entered  into  wOS*  as  parameters. 
wOSM  reads  these  parameters  from  the  rurst  rea«  via  the  main 
program  (see  section  5  and  section  3).  The  tour  lengths  defined  as 


Two-Diait  Short-Tour  Length  (STL) 

Two-Digit  Long-Tour  Length  (LTL) 

TwO-Diqit  Ma*  lnuni  CONUS  Tour  (*AXCL) 

NOTE  -  Tour  lengths  are  represented  as  months  and  are  cooed  in  the 
runstream  beginning  in  column  1  separated  by  a  space. 


2. 1.7. 2.  MAXIMUM  FEMALE  STRENGTH  CONSTRAINT  (NUM) 


The  NUM  parameter  is  read  into  wQSw  by  the  SUBROUTINE  FILE® 
only  if  the  constrained  run  ootion  has  been  turned  on  (see  section 
4)  . 

This  parameter  is  coded  in  the  runstream  and  is  read  by  «0Sy 
using  a  olank  format  read  statement;  thus,  NUM  can  be  any  size 
integer  the  user  wishes  (see  section  3)  • 


2.2.  A  6  £  BY  GRADE  AND  PAIR  ( A  G  E  3  G  P  R ) 

Th?  AGEBGPR  "ODFL  uses  tTe  following  data  files  : 

SPECIALTY  CODES 

INSPEC/ ADSPEC  INVENTORY 

E  E  *  A  L  E  CONTINUATION  RATES 

OVERALL  FEMALE  CONTINUATION  RATES 

GRADE  DISTRIBUTION 

LATERAL  ENTRIES 

WOSM  FEMALE  AUTHORIZATIONS 

ThS  INVENTORY 

PRESET  ACCESSION  LEVELS 

UTILIZATION  RATES 

SPECIALTY  CODES  NOT  DESIGNATED  FOR  ADSPEC 
PROPONENT  PREFERENCE  MATRIX 

The  following  files  are  necessary  to  the  ooeration  of  OaSYS 
:  SPECIALTY  COOES,  INSPEC/AOSPEC  INVENTORY,  FEMALE  CONTINUATION 
RATFS,  OVERALL  FEMALE  CONTINUATION  RATES,  GRADE  DISTRIBUTION,  wOS" 
f  E  M  A  L r  AUTHORIZATIONS,  UTILIZATION  RATFS,  and  the  PRCPONt  NT 
PREFERENCE  "ATRIX.  The  remaining  files  are  optional. 


2.2.1 


SPECIALTY  CODES  (SPECS) 


2. 2. 1.1.  FILE  DESCRIPTION 


The  SPECS  file  used  in  AGE96PR  is  the  same  file  usee  ir  *OSM. 
For  documentation  concerning  this  file  refer  to  the  FILE 
DESCRIPTION  (section  2. 1.4.1)  in  the  WOSM  input  file  section. 


2. 2. 1.2.  RECORD  DESCRIPTION 


Refer  to  eOS*  input  file  section  (section  2 . 1.4. 2) 


2. 2. 1.3.  INPUT  ROUTINE 


The  SPECS  file  is  read  into  the  •  G  E  B  G  P  R  *  0  D  E  L  by  the  main 
program.  All  previous  warnings  as  to  the  intecrity  of  the  twodicit 
specialty  codes  used  applies  also  to  the  AGEBGPR  M  0  D  £  L • 
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2.2.2.  INSFEC/ADSPFC  INVENTORY  (INV-YG-GP) 


2.2.2. 1.  FILE  DESCRIPTION 


The  INV-YG-6R  file  is  the  same  file  (DESIG)  used  in  «OS^  . 
Refer  to  the  WOSf  input  file  section  for  details  concerning  this 
file  (section  2. 1.3.1).- 


2. 2. 2. 2.  RECORD  DESCRIPTION 


Same  as  the 
section  (section 


DES IG  file 
2.1.3.21. 


used 


in  wO  S* . 


Refer  to  WOS*l  input  file 


2. 2. 2. 3.  INPUT  ROUTINE 


The  INV-YG-G0  file  enters  AGE3GPR  via  the  main  program.  All 
year  grouDs  are  read  into  the  model,  those  year  groups  are  "aged" 
a  single  year,  the  resulting  8th  year  qtoud  aets  additional 
specialties,  and  the  calculated  new  2d  LT  (accessions)  year  group 
is  added  to  the  INV-Y6-GR  file,  when  A  6  c  B  G  P  R  is  executed  for  a 
period  of  successive  years,  the  INV-yG-GR  file  is  internally  read 
Cy  the  model;  thus,  a  new  inventory  is  created,  output,  and  read 
by  the  same  program  (see  section  3). 
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2.2.3.  FEMALE  CONTINUATION  RATES  (CRATE) 


2. 2. 3.1 .  FILE  DESCRIPTION 


The  CRATE  file  contains  by  two-digit  soecialty  ana  year  g  r  o  u  D 
the  continuation  rate  for  female  officers.  Each  specialty  has 
three  records  associated  with  it.  The  aata  imaaes  for  those 
records  are  : 

Two-Digit  Specialty  Code  ID  (ISP) 

Four-Digit  Continuation  Rate  For  Each  Yr.(RINPUT) 

(includes  decimal  point) 


2. 2. 3. 2.  RECORD  DESCRIPTION 


The  data  formats  for  the  three  records  for  each  soecialty 
code  are  : 


RECORD  1 


ISP 

COLUMNS 

1  - 

2 

comma 

COLUMN 

3 

R INPUT  ( 1  ) 

COLUMNS 

i  - 

7 

c  omma 

COLUMN 

6 

R INPUT ( 2) 

• 

COLUMNS 

• 

0  - 

1  ? 

• 

RINPUT(IO) 

RECORD 

2 

COLUMNS 

pc 

-  c  2 

R INPUT ( 1 1 ) 

COLUMNS 

1  - 

A 

comma 

COLUMN 

5 

R INPUT ( 1  2  ) 

COLUMNS 

t  - 

5 

c  o mm a 

• 

C  OLUMN 

• 

1  0 

• 

RINPUTC20) 

RECORD 

3 

COLUMNS 

-  A  9 

R I NPUT ( 2 1 ) 

COLUMNS 

1  - 

A 

comma 

C  OLUMN 

c 

R INPUT ( 22  ) 

COLUMNS 

6  - 

9 

comma 

• 

COLUMN 

• 

10 

• 

R I N  PUT  (30) 

COLUMNS 

Af 

-  A  9 

2. 2. 3. 3.  INPUT  ROUTINE 


the  CRATE  file  is  read  into  A  G  E  9  G  P  R  by  the  SUBROUTINE  READCR. 
READCP  places  the  CRATEs  in»o  a  matrix  called  'crate'  where  the 
row  is  indexed  Oy  the  year  group  and  the  columns  are  indexed  py 
the  two-digit  specialty  code. 

NO T F  -  The  CRATE  file  used  by  the  AGEPGPR  mod*L  was  created  oy  a 
preprocessor,  MOD-CRATES.  See  the  "OD  I  F y  CONTINUATION  RATES  ore 
processor  code  for  more  information  (section  6), 


t  .  2 . 4 


OVERALL  FEMALE  CONTINUATION  RATES 


2. 2. 4.1.  FILE  DESCRIPTION 


This  file  reoresents  the  0  P  M  D  overall  continuation  rate  ♦or 
year  groups  one  through  thirty.  It  contains  three  records  where 
the  data  image  for  those  records  is  : 

Four-Digit  Continuation  Rate  oy  Yr.  Group  (CRATE) 

(includes  decimal  point) 


2.2.4 .2.  RECORD  DESCRIPTION 


The  data  formats  for  the  three  records  are  : 


R  E  C  0  0  D  1 


C  RATE (NT , 1 ) 

COLUMNS 

1  -  4 

cornea 

COLUMN 

c 

CRATE (NT, 2) 

COLUMNS 

6-9 

comma 

• 

COLUMN 

• 

10 

CRATE (NT, 1 j) 

COLUMNS 

46  -  A9 

P  E  CORD 

2 

CRATE (NT,  11  ) 

COLUMNS 

1  -  4 

comma 

C  OLUMN 

c 

crate (NT, 12) 

COLUMNS 

6-9 

comma 

« 

COLUMN 

• 

1" 

CRATE (NT, 20) 

COLUMNS 

46  -  49 

RECORD 

3 

CRATE (NT, 21 ) 

COLUMNS 

1  -  4 

comma 

COLUMN 

5 

CRATE (NT, 22) 

COLUMNS 

6-9 

comma 

• 

COLUMN 

• 

10 

CRATE (NT, TC) 

COLUMNS 

46  -  4  9 

NOTE  -  The  variable  NT  represents  the  last  row  of  the  CRATE 
matrix.  The  completed  matrix  is  indexed  by  the  year  qrouos  one 
throuqh  thirty  plus  the  0PMC  average  for  the  ro*s  and  the  columns 
are  indexed  by  the  two-digit  specialty  codes. 


2. 2. 4. 2.  INPUT  ROUTINE 


This  file  enters  *  G  E  9  G  P  R  by  the  SUBROUTINE  PEADCR.  It  is  the 
last  read  statement  of  this  routine. 


2.2.5 


G  0  A  D  E  DISTRIBUTION  C  G  P  A  D  t  3 


2.2.5.1 .  FILE  DESCRIPTION 


The  GRADE  file  contains  integer  formatted  data  by  years  of 
service  .for  2d  LT  through  COL.  It  represents  the  ideal 
distribution  of  grades  based  on  given  y e a r-c f -s e r v  i  c e  .  There  are 
thirty  records*  one  for  each  y e a r - o f - s e r v  i  c e  ,  consisting  of  si» 
fields: 


Hve-Cigit  Grade  Distribution  fate 


(  r  f?  4  D  E  ) 


2. 2. 5. 2.  RECORD  DESCRIPTION 


Each  record  consists  of  the  following 


fields  : 


GRADE  (1  ) 
comma 
GRADE (2  ) 


comma 
GRADE (3) 
comma 


GRADE ( A  ) 


comma 
GRADE ( 5 ) 


comma 
GRADE  (d  ) 


COLUMNS 

1  - 

C 

COLUMN 

6 

columns 

7  - 

11 

COLUMN 

1  ? 

COLUMNS 

1?  - 

1  7 

COLUMN 

1  ? 

COLUMNS 

10  - 

23 

COLUMN 

24 

COLUMNS 

2 c  - 

29 

COLUMN 

30 

C  OLUMN'S 

31  - 

35 

2.2. 5.3.  INPUT  ROUTINE 


file  is  read 
2  (2a  LT  and 


into  AGESGPR 
Tst  LT)  are 


The  GRADE 

Grades  1  ana  2  (2a 

a  tate  for  a  l  l  LTs.  READGE  returns  a  matrix  cf 
distribution  rates  where  the  rows  are  indexed  by 
l  L T  =  1  ,  .  .  .  ,  C 0 L  =  5 )  and  the  columns  are  indexed 

y ear-of-se r v  i  ce  (1  -  30). 


via  the  SUBROUTINE  READGR. 
added  tooether  resulting  in 

fractional 
the  grade 
by  the 


I 
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Z.Z.fc.  L‘Tf Rsl  ENTRIES  (REDESIGN 


2. 2. 6.1.  FILE  DESCRIPTION 

The  REDESIG  file  contains  by  yean  qrouD  and  specialty  the 
total  number  of  female  officers  redesignated  to  another  soecialty. 
This  file  can  contain  any  nu*Der  of  records  where  the  elements  of 
a  record  are  : 

Two-Digit  Y e a r -o f - S e r v i c e  ID  (J) 

Two-Digit  Current  Specialty  ID  ( I N  P U  T ( 1 ) ) 

Two-Digit  Re-designated  Specialty  ID  (INDUT(21) 

Total  Population  To  Pe  Reoesignated  (NUM) 


2.2. 6. 2.  RECORD  DESCRIPTION 


The  REDESIG  file  is  read  into  A  G  E  c  G  p  R  using  a  blank  format; 
thus  column  specifications  are  f ree-f or*at  .  The  only  restriction 
being  that  all  fields  should  be  separated  py  a  comma.  The 
following  is  an  example  : 


comma 
INPUT (1 ) 
comma 
INPUT (2) 
comma 
NUM 


COLUMNS  1  ■ 
COLUMN  2 
COLUMNS  A  ■ 
COLUMN  fc 
COLUMNS  7  ■ 
COLUMN  9 
COLUMNS  1n 


NOTE  -  The  N u m  field  begins  in  column  ID 
columns  needed  to  represent  the  population 
an  inteoer  numoe  r  . 


and  spans  the  numper  of 
to  pe  redesignated  as 


2  .  2 . 0 . 3  .  INPUT  ROUTINE 


The  °EDESIG  file  is  input  into  A  G  E  B  G  P  R  via  the  main  program 
prior  to  calculating  the  new  year  group  accessions.  If  there  are 
no  redes i anat i ons  then  replace  the  SA^D  card  with  an  EFOF  card 
(see  section  71. 


2.2.7 


•OS*  FEMALE  AUTHORIZATIONS  (AUTH) 


2. 2. 7.1.  FILE  DESCRIPTION 


The  AUTw  file  represents  the  link  Detween  AGE9GPR  ana  *JOSM.  It 
contains  the  distribution  of  female  officer  authorizations  by  two- 
digit  specialty  code  and  orade.  W0S*  ououts  this  file  in  the 
SUBROUTINE  FILER  or  in  the  SUBROUTINE  PRECIS  depending  on  the  run 
option  used  (see  section  4).  This  file  contains  a  recorc  for  each 
valid  two-digit  specialty  code.  The  data  images  defined  are  (usino 
AGEdGPR  keywords)  : 

Two-Digit  Specialty  Code  ID  (ISp) 

Five-Digit  Auth.  Amount  by  Grade  (INPUT) 

Five-Digit  Total  Auth.  for  All  Grades  (TOTAL)* 

NOTE  -  The  TOTAL  field  is  not  used  by  AGE9GPR  cut  is  includea  in 
the  file  for  information  purposes. 


2.2.7 .2.  RECORD  DESCRIPTION 


Each  record  is  defined  by  the  following  data  formats  : 


ISP 

COLUMNS 

2  -  3 

INPUT(I) 

r 

COL 

COLUMNS 

4  -  5 

I NPUT (2 ) 

s 

LTC 

COLUMNS 

9-12 

INPUT ( 2 ) 

r 

*  A  J 

COLUMNS 

14  -  IB 

I NPUT ( 4) 

= 

CPT 

COLUMNS 

ic  -  23 

INPUT(5) 

r 

LT 

COLUMNS 

24  -  ? B 

TOTAL 

columns 

2c  -  73 

2. 2. 7. 2.  INPUT  ROUTINE 


This  file  is  read  into  AGE3GPR  at  two  points  -  (1)  the 
SUBROUTINE  ACCESS  reads  all  the  grade  fields  of  this  file  prior  to 
calculating  the  accessions,  and  (2)  the  main  prooram  reads  only 
the  field  grade  authorization;  prior  to  APSDEC  desianation. 


2.2.8 


THS  INVENTORY  (ThS) 


2. 2. 6.1.  FILE  DESCRIPTION 


The  ThS  file  contains  the  current  poDulation  of  female  officers 
in  TWS  by  grade,  primary  specialty,  and  secondary  specialty.  The 
structure  of  this  file  is  similiar  to  the  INSPEC/ADSPEC  inventory 
file  with  the  exception  of  the  year-of-service  identifier  : 


Single-Digit  Grade  ID 
Two-Digit  Primary  Specialty  ID 
Two-Digit  Secondary  Specialty  ID 
Four-Digit  Population  Amount 


(GRADE) 

(SPEC  (1  )  ) 

(SPEC (I) .  I  =  2  .  .  1  1  ) 

( INPUT ( I ) , I =1 . . 1 0 ) 


2. 2. 8. 2.  RECORD  DESCRIPTION 


The  number  of  records  oe r  primary  specialty  is 
number  of  additional  specialties  listed  for 
specialty.  The  maximum  oer  record  is  ten.  The 
description  of  a  variant  numoer  of  additional  soecia 


limited  to  the 
that  primary 
following  is  a 
1 1  i  e  s  : 


GRADE 
SPEC  (1  ) 
SPEC ( 2) 
INPUT ( 1  ) 

SPEC (3) 
INPUT ( 2  ) 


COLUMN  2 
COLUMNS  f.  -  5 
COLUMNS  7-6 
COLUMNS  9-12 
COLUMNS  U  -  15 
COLUMNS  16  -  19 


•  • 

*  • 


2. 2. 8. 3.  INPUT  ROUTINE 


AGE3GPR  reads  the  THS  file  at  two  do 
execution  -  (1)  SUBROUTINE  ACCESS,  and  (2)  the 
both  cases  the-  SUBROUTINE  I N  VNT6  is  used  as  the 


nts  Our i na  program 
main  program.  In 
input  routine. 


i 


< 
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2.2.9.  PRESET  ACCESSION  LEVELS  (PRESETS) 


2.2.9.-1.  FILE  DESCRIPTION 


The  PRESFTS  file  contains  by  two-digit  soecialty  code  the 
desired  number  of  2d  LT  accessions.  By  using  this  file  all 
previous  accession  calculations  are  disreoarded  with  the  eueption 
of  those  specialties  not  preset  by  this  file. The  data  imaoes  in 
this  file  are  : 


Two-Digit  Specialty  Code  ID 
Preset  Accession  Level 


(ISP) 

( I  AD  J  ) 


2. 2. 9. 2.  RECORD  DESCRIPTION 


This  file  can  contain  from  one  to  all  the  specialty  codes 
used;  thus  t  the  number  of  records  associated  with  this  file  can 
vary.  Each  record  is  read  into  AGEBGPR  using  a  blank  f o  r m  a  t ; 
hence,  the  adjustment  field  (IADJ)  can  vary  in  size.  The  data 
format  is  : 

ISP  COLUMNS  1  -  2 

comma  COLUMN  3 

IADJ  COLUMNS  4  -  .... 


2. 2. 9. 3.  INPUT  ROUTINE 


The  PRESETS  file  enters  AQE3GPR  via  the  SUBROUTINE  ACCESS.  If 
the  user  wishes  not  to  preset  the  accession  levels  then  replace 
the  3  A  o  D  card  with  an  3EOF  card. 
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2.2.10.  UTILIZATION  RATES  (URATES) 


2.2.1C.1 .  FILE  DESCRIPTION 


The  URATES  file  contains  by  two-digit 
MAj  utilization  of  those  soecialties  where 
operating  level  is  desired.  The  data  images 


specialty  the  taraet 
a  scecific  fixed  point 
involved  are  : 


Two-Digit  Specialty  Code  ID  (ISPEC) 

Three-Digit  Fixed  Point  Operating  Level  (* ) 
(includes  decimal  point) 


2.2.10.2.  RECORD  DESCRIPTION 


The  URATES  file  is  read  into  AGEBGPR  using  a  blank  format; 
thus,  field  lengths  can  vary.  An  example  data  format  : 

ISPEC  COLUMNS  1  -  2 

comma  COLUMN! 

X  COLUMNS  4-6 


2.2.10.3.  INPUT  ROUTINE 


The  SUBROUTINE  FAR  inouts  the  URATES  file  into  AGEB6PR.  Only 
those  soecialties  listed  in  the  file  will  have  a  fixed  Doint 
operating  level,  all  other  soecialties  will  have  their  operatina 
levels  calculated  using  a  sum  of  squares  minimization  technique. 


2.2.11 


SPECIALTY  COOES  NO  DESIGNATION  (NODESIG) 


-  2  A 


2.2.11.1.  EILE  DESCRIPTION 


The  NODESIG  file  contains  oy  two-digit  specialty  a  list  of 
those  specialties  which  policy  precludes  from  receiving  ADSPEC 
designations.  The  data-  image  is  : 

Two-Digit  Specialty  Code  ID  (IS^EC) 


2.2.11.2.  RECORD  DESCRIPTION 


The  NODESIG  file  can  contain  any  number  of  specialties  up  to 
the  total  number  of  specialties  used,;  hence,  the  numter  of  records 
can  vary.  Each  record  has  the  following  data  format  : 

ISPEC  COLUMNS  1  -  2 


2.2.11.3.  INPUT  ROUTINE 


The  NODESIG  file  enters  AGE3GPP  via  the  SUBROUTINE  adSPEC. 
This  file  is  read  orior  to  any  ADSPEC  calculations.  If  the  user 
wishes  not  to  restrict  the  "ADSP£C-ing  process  then  the  9ADD  card 
should  be  replaced  with  an  3E0F  card. 


2.2.12 


PROPONENT  PREFERENCE  MATRIX  (PREF-MAT) 


2.2.12.1. 


FILE  DESCRIPTION 


The  PREF-MAT  file  contains  by  two-digit  soecialty  code  the 
proponent  preferences  for  additional  specialty  desionations  using 
a  minimum  and  maxim u-m  range  of  percentages.  The  data  images 
involved  in  producing  this  matrix  are  : 


Two-Digit  Primary  Specialty  ID  (IE) 

T,.o-Cigit  Secondary  Specialty  ID  (IC) 

One  to  Three-Digit  Integer  Percentage  (D) 
Single-Digit  Type  Width  Flag  (ITYPE) 


2.2.12.2.  RECORD  DESCRIPTION 


The  number  of  records  involved  are  based  on  the  total  numoer 
o  f  INSPEC/ADSPEC  combinations.  Each  record  has  the  following 
format  : 


19 

COLUMNS 

1  -  2 

c  omma 

COLUMN 

■* 

IC 

COLUMNS 

4  -  5 

comma 

COLUMNS 

6 

D 

COLUMNS 

7,7  -  a  ,  or 

comma 

COLUMNS 

6,9,  or  n 

ITYPE 

COLUMNS 

9,15,  or  11 

2.2.12.3.  INPUT  ROUTINE 


The  proponent  preference  matrix  is  reao  into  AGE3GPP  via  the 
SUBROUTINE  ADSPEC.  It  is  usea  in  conjunction  with  the  RANGE  WIDTH 
(see  MISCELLANEOUS  INPUTS  section  2.2.13)  and  the  type  width  flag 
(ITYPE)  to  produce  the  minimum  and  maximum  range  of  percentages. 


2.2.12 


MISCELLANEOUS  INPUTS 


Refer  to  section  I  for  more  information  concerning  the 
following  incuts. 


2.2.12.1.  CURRENT  AND  PROJECTION  YEARS  (  N 0 W Y R  ,  P R 0 J V P  ) 


The  current  and  projection  years  are  reao  into  the  a  c-  E  3  G  P  ° 
MODEL  t>y  the  main  program.  These  Parameters  are  two-digit  integers 
separateo  by  a  comma.  The  difference  of  these  two  parameters  sets 
the  number  of  times  AGEB6PR  will  cycle  or  'age'  the  force. 


2.2.12.2.  OMF  SOURCE  DATE  <0*n 


The  Ome  source  date  is  read  into  AGE3GPR  by  the  main  program 
from  the  runstream.  It  is  placed  into  the  runstream  as  a  five- 
character  string  consisting  of  a  th ree-c ha rac t e r  month  and  a  two- 
character  year. 


2.2.12.2.  FAR  LIMITS  (RATELO.RATEHI) 


The  FAR  LIMITS  for  MAJ,  LTC,  and  COL  are  read  by  A6fc?GpR  from 
the  runstream  py  the  main  program.  These  parameters  consist  of  six 
real  values,  alternating  low  and  high  limits,  which  are  separated 
by  commas . 


2.2.13.4.  ADSPEC  YEAR  GROUP  flYQTSD) 


The  ADSPEC  YEAR  GROUP,  usually  eight,  is  read  by  AGEP&PR  cy 
the  main  program  from  the  same  line  as  the  FAR  LIMITS.  This 
integer  parameter  sets  the  year  group  which  will  receive  ADSPEC 
designations. 


2.2.13.5.  CONSTRAINED  NEW  2d  LT  N  U  m  9  r  r  (num) 


This  parameter  limits  the  total  njmper  of  accessions 
calculated  by  the  SUBROUTINE  ACCESS.  It  is  an  integer  value  read 
by  that  subroutine  from  the  runstream. 


2.2.13.6.  RECALLS  (J ,  NUM) 


The  RECALL  parameters  consist  of  a  y e a r - o f - s e r v  i  c e  identifier 
ana  a  population  amount  separated  by  a  comma.  These  parameters  are 
read  by  the  main  program  from  the  runstream  and  added  to  the  year 
group  s  inventory. 


2.2.13.7.  SINGLE  TRACK  ELEMENTS  (ISPEC.XX) 


Single  track  elements  consist  of  a  two-digit  specialty  cooe 
anc  a  percentage.  These  parameters  are  read  into  AGE3&PR  by  the 
SUBROUTINE  ADSPEC  from  the  runstream.  They  control  the  percentage 
of  a  specialty  that  will  no*  receive  additional  specialties. 


2.2.13.? 


PREFERENCE  RANGE  WIDTH  (WIDTH) 


This  real  parameter  is  a  percentage  which  will  tie  used  to 
compute  upper  ana  lower  limits  for  the  proponent  oreference  matrix 
(see  section  2.2.12).  It  is  read  into  A  G  E  P  G  p  R  by  the  SUBROUTINE 
ADSP6C  from  the  runstream. 


2.  RUNSTREAM 


The  following  runstrea*  is  used  to  meroe  the  preprocessors, 
WOSM  j  ana  the  AGEaGPR  M0Dcl  together  as  one  entity.  The  ruancl 
shown  is  for  a  single-year  execution  which  'ages'  the  thirty-yea 
groups  one  year.  calculates  a  new  accession  year  group,  an 
AOSPECs  the  new  eighth  year  group.  In  order  to  'aae'  the  force 
more  than  one  year,  several  new  runstream  lines  must  oe  added  ana 
a  block  of  existing  lines  must  be  dittoed. 


SASG.T  4. ,77/500 
SASG.T  ?. ,/// 5uC 


« A S  G  ,  T  <5.  ,  /  /  / 500 
SASG.T  13.  ,  /  /  /  5  00 
S A  s  G  ,  T  1c. 
a  A  S  G , T  25. 

SASG.T  26  . 

SASG.T  29  .  ,  /  /  /  5C0 


SED  PERSACS  AUTH  PILE, 10. 
EXIT 

SFD  OTSPtC  PILE, 25. 

EXIT 

a  X  Q  T  AUTh  PILE  PREPROCESSOR 
S  X  G  T  DESIG  FILE  PREPROCFSSQP 
SADD.F  DESIG  FILE 
SERS  10. 

S X GT  ,  OPT  I ONS  WOSM  MODEL 
SADD.F  SPECS  PILE 
iADD.E  CASRFP  PILE 
12  ?0  4* 

£  5  60 

SADD.E  PRFDIS  FILE 


ACCESSION/DESIGNATION  SUMMARY  OUTPUT  PILE 
NEXT  PY  INVENTORY  3  Y  SC  P»IR,YOS,GRACF  OUTPUT 
PILE 

NEXT  FY  INVENTORY  3  Y  SC  PAIR, GRADE  OUTPUT  PILE 
INPUT  FILE  FOR  CREATE  26,  OUTPUT  FILE  FOR  -OS" 
OUTPUT  FILE  FOR  CREATE  12,  INPUT  FILE  FOR  «0SM 
WOSM  INPUT  FILE  -  DTSPEC  INVENTORY  FILE 
WOSM  INPUT  FILE  -  PERSACS  AUTH  FILE 
INVENTORY  FOR  START  FY  TO  END  FY  3Y  SC,GR«DC 
OUTPUT 


CREATE  FILE  10  IN°UT  FILE 


CREATE  FILE  26  INPUT  FILE 


SCOPY.I  10.  .FEMALE  AUTH  FILE 
",  E  R  S  10. 


SERS  12. 

SFRS  25. 

SERS  26. 

SERS  27. 
a  E  R  S  25. 
oi  c  R  S  29. 

a  X  G  T  A  G  E  3  G  P  R  w  0  0  E  L 
SADD.E  SPECS  FILE 
£3  ,°4 
S  E  P  R  3 


CREATE  FILE  26  INPUT  FILE 
CREATE  FILE  12  INPUT  FILE 
1NSPEC/ ADSPF C  INVENTORY 
PREPARE  1C  fop  W  0  S  M  OUTPUT 
EXECUTE  the  model 
SPECIALTY  c  0  D  r  s 
CASUALTY  REPLACEMENT  rates 
TOUR  LENGTHS  (  S HORT  ,  LONG  ,  CONUS  ) 
TOTAL  female  AUTh  CONSTRAINT 
PPEEERRED  DISTRIBUTION 
SOS'*  OUTPUT  FILE 
ERASE  TEMPORARY  FILE  13 
ERASE  TEMPORARY  FILE  12 
ERASE  TEMPORARY  FILE  25 
ERASE  TEMPORARY  FILE  26 
ERASE  TEMPORARY  FILE  27 
ERASE  TEMPORARY  FILE  ?  £ 
t  RASE  TEMPORARY  FILE  29 
EXECUTE  the  MODE;. 

SPEC  I  ALTY  CODES 

BEGINNING  AND  ENDING  YEARS 

BEGINNING  INvT  0*r  SOUfiCt  DATE 


SADD.E  INV-YG-GP  FILE 
SADD.E  CRATES  FILE 
SADD  OVERALL  CRATES 
SADD  GRADE  DIST  FILE 
SEOF 


733  ,  .  666  ,  .  73  3  , .  666  , .  3  3  3  ,  .  666  ,  3  ,  "«J,  L  T  C ,  COL  FAR  LIMITS,  and 

ircpcr  yrop 

!  INSeEC/AOSPcC  INVENTORY 
.  CONTINUATION  RATfcS  °Y  SPC 
.  0  P  *  D  CONTINUATION  RATES 
.  GpADE  DISTRIBUTION 

END  OF  PEDESIGNATION  DATA  (USUALLY  INTO  SC  15  i  71) 
SADD.F  FEMALE  AUTH  FILE  .  ■  0  S  "  OUTPUT  F  I  L c 

SADD.E  ThS  FILE  ,  THS  INVENTORY 

CONSTRAINED  NEW  ?LT  ACCESSION  NU«?FR 
PRFSET  ACCESSION  LEVELS 
END  OF  RECALL  DATA 
5ADC.E  FEMALE  AUTH  FILE  .  -OS*  OUTPUT  FIlE 

SADD.E  ThS  FILE  .  THS  INVENTORY 

SADD.E  URATES  FILE  .  ENTER  PRESET  «>j  URATES  w£RE  (OPTIONAL) 
SADD.E  NODESIG  FILL  .  SPCS  NOT  DESIGNATED  FOR  ADSPEC 

ENTER  SINGLC  TRACX  ELEMENT  HERE 

preference  range  WIDTh 
SADD.E  PREF-MAT  FILF  .  PPOBONENT  PREFERENCE  MTRIt 


cooc 

SEOF 

SEOF 


»  E  0  F 


(L  L  Tl 


TEMPORARY  MASS  STORAGE  ASSIGNMENT 
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1  . 


This  section  of  the  runstream  sets  aside  tensorary  nass 
storage  to  be  used  by  both  models  : 


i  A  S  C  ,  T 

4. , / / / 5QC 

&  A  S  C-  ,  T 

8.  ,///50C 

£  A  S  G  ,  T 

9.  ,  /  /  / 5 00 

o!  A  S  G  ,  T 

13.  ,  /  /  / 5  00 

i  ASP  ,  T 

12  . 

SA  SG  ,  T 

25  . 

>  A  S  G  ,  T 

26. 

SASG.T 

29  . , / / /  5  00 

ACC F S S I  ON/D E S I GNATI ON  SUMMARY  OUTPUT  FILE 
NEXT  FY  INVENTORY  3Y  SC  P»IR,Y0S,5ftADc  OUTPUT 
FILE 

NEXT  FY  INVENTORY  3Y  SC  PAI», GRADE  OUTPUT  FILE 
INPUT  FILE  FOR  CREATE  26,  OUTPUT  FILE  FOR  .OS'* 
OUTPUT  FILF  FOR  CREATE  1  Z  ,  INPUT  FILE  FOR  .OS'* 
W  0  S  M  INPUT  file  -  DTSPEC  INVENTORY  FILE 
WOS*  INPUT  FILE  -  PERSACS  AIJTH  FILE 
INVENTORY  FOR  START  FY  TO  END  FY  9Y  SC, GRADE 
OUTPUT 


The  example  shown  is  for  a  single  year  run  of  AGE?3PR  .  For 
multiple  year  runs  three  additional  temporary  files  must  pe 
assigned  for  each  year  of  execution;  thust  each  year  needs  three 
separate  files  to  store  the  output  information  : 

«4, - >  FILES  8 ,  9 ,  10 

05  - >  FILES  11,  12,  13 

8  6 - >  FILES  14,  15,  16 


The  output  files  are  defined  as  : 

FILES  s, 11,14,,.  New  FY  inventory  by  year  orouD,  grade 

and  specialty  pair 

FILES  9,12,15...  New  FY  inventory  by  grade  and  specialty 

pair 

FILES  10,13,16..  New  ac c e s s i on s  /  A D S P E C s  for  the  °th  year 

group 

FILE  4  contains  the  ac c e s s i on s / A D S PE C s  information  for  the 
span  of  years  designated  by  the  be g  i  nn i ng /end  i  no  years,  and  FILE 
29  contains  inventory  information  for  that  span  of  years. 


3.2.  PREPROCESSOR  SECTION 

I 

The  followina  section  oreoares  the  logical  units  10,12,25  and 
26  for  input  into  WOSM  : 


i E  D  PERSACS  AUTM  FILE, 10. 

EXIT 

SED  DTSPEC  FILE, 25. 

EXIT 

a  X  Q  T  AUTh  FILE  PREPROCESSOR 
i  X  3  T  DESIG  FILE  PREPROCESSOR 
iADD.E  DESIG  FILE 
i  E  R  S  1C. 


.  CREATE  FILE  10  INPUT  FILE 

.  CPEATE  FILE  2C  INPUT  FILE 

.  CREATE  FILC  26  INPUT  FILE 
.  CRFATE  FILE  12  INPUT  FILE 
.  INSPEC/ ADSPEC  INVENTORY 
,  PREPARE  10  FOR  W C S «  OUTPUT 


FILE  10  contains  the  PERSACS  information  which  is  inout  into 
the  AUTh  FILE  preprocessor ,  FILE  12  contains  the  DESIG  FILE 
information  output  from  the  %0ESIG  FILE  o r e 0 r 0 c e s s o r  .  FILE  25 
contains  the  DTSPEC  FILE  information,  and  FILC  26  contains  the 
output  information  from  the  AUTH  FILE  rreprocessor,  After  pre 
processing  is  complete  FILE  1n  is  erased. 
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3.3.  -OS’*  EXECUTION  SECTION 


This  section  executes  w  0  S  M 
files  and  runstream  information 

iXQT, OPTIONS  WOSM 
i  A  D  D  ,  E  SPECS  PILE 
iADC.f  CASREP  FILE 
1  2  30  4* 

£560 

« A  0  P , E  PREDIS  FILE 


and  adds  the  apDrooriate  oata 


EXECUTE  THE  I*  0  D  E  L 
SPECIALTY  CODES 
CASUALTY  PEPLACrMfNT  RATES 
TOUR  LENGTHS  ( SHORT , LONG  ,  CONUS  ) 
TOTAL  female  AUTn  constraint 
PREFERRED  DISTRIBUTION 


See  section  3  for  more  information  concernina  this  Dart  of 
the  runstream. 


2.4.  MERGE  SECTION 


This  section 
AGEPGPR  MODEL  : 


prepares  the  temporary  files  for  use  by  the 


■  COPY 

,  I  in 

•  f 

female  auth  file 

taOSM 

OUTPUT  FILE 

SERE 

10. 

• 

ERASE 

TEMPORARY 

FILE 

1  0 

SERE 

12. 

• 

ERASE 

TEMPORARY 

FILE 

1  2 

i  E  R  S 

25  . 

• 

ERASE 

TEMPORARY 

FILE 

25 

a  E  R  S 

2b. 

• 

ERASE 

TEMPORARY 

FILE 

26 

i  ERS 

27. 

• 

ERASE 

TEMPORARY 

FILE 

27 

i  E  R  S 

28  . 

• 

ERASE 

TEMPORARY 

FILE 

2  5 

a,  c  R  $ 

29. 

• 

ERASE 

TEMPORARY 

FILE 

29 

FILE 

10 

,  -hich  contains  the  female  officer 

■uthori 

copied  to 

a 

permanent  file  and 

files 

10,12,25,26 

,27, 

29, 

erased. 


2.5.  AGE9GPR  EXECUTION  SECTION 


i  s 
are 


This  section  runs  AGED6pR  for  the  specified  number  of  years 
The  example  shown  is  for  a  single  year  run  : 


iXQT  AGE3GPR  MODEL 
i  A  D  D  ,  F  SPECS  FILE 
£  3  ,  0  4 
S  E  P  p  3 

.333,. 666, .333, .666,. 333, .666,8, 


a  A  D  D  , 
i  A  D  D  , 
a  ADD 
1  ADD 
iEOF 
i  ADD  , 

■  ADD, 

cooo 

O.E0F 

iEOF 

■  ADD, 

■  ADD  , 
SA  DD  , 
SiADD  , 
iEOF 
.20, 

■  ADD, 


E  INV-YG-GR  FILE 
E  CRATES  FILE 
OVERALL  CRATES 
GRADE  DIST  FILE 

END  OF  REDESIGNATION 
E  FE**ALE  AUTH  FILE 
E  THS  FILE 


EXECUTE  the  "PDEL 
SPECIALTY  codcs 
BEGINNING  AND  ENDING  YEARS 
BEGINNING  INVT  OMF  SOURCE  DATE 
*  A  J  ,  LTC,  CCL  far  LIMITS,  AND 
.  ADS  PEC  YRGP 
.  INSPEC/ADSPEC  INVENTORY 
.  CONTINUATION  SAT  cS  °  Y  SPC 
.  0 p  M  D  CONTINUATION  RATES 
.  GRADE  DISTRIBUTION 
DATA  (USUALLY  INTO  SC  15  S  71) 

.  wOS"  OUTPUT  FILE 
.  THS  INVENTORY 


CONSTRAINED  NEW  2  L  T  ACCESSION  N  U  *  B  F  R 
PRESET  ACCESSION  LEVFLS 
END  OF  RECALL  DATA 

E  FEMALE  AUTH  FILE  .  WOS*  OUTPUT  FILE 

E  THS  FILE  .  THS  INVFNTORY 

E  URATES  FILE  .  ENTER  PRFSET  *  A J  URATES  W£RE  (OPTIONAL) 

E  NODESIG  FILE  .  SPCS  NOT  DESIGNATED  FOR  ADSPEC 

ENTER  SINGLF  TRAC*  ELEMENT  WEPE 
PREFERENCE  RANGE  WIDTH 

E  PREF-MAT  FILE  .  PROPONENT  PREFERENCE  M  A  T  R  I  X 


In  order  to  run  AGEBGP®  *or  more  than  one  year  the  block 
lines  following  the  INSPEC/ADSPEC  inventory  3ADD  card  must 
repeated  for  each  year  of  execution. 


o  f 
be 


4, 


RUN  OPTIONS 


This  section  aeals  i»  i  t  H  the  ootions  available  to  the  0*SYS 
user,  primarily  the  w  0  S  *  execution  options.  Run  ootions  are  placed 
on  the  i»0$M  iXQT  card  following  execute  statement  : 

SXQT, options  «0SM.*QDEL 

options  are  :  f  ,  f  ,  I  ,  f* ,  P  ,  R  ,  X  ,  Y  ,  Z 


4.1.  C  -  OPTION 


The  '  C '  option  sets  W  0  S  *  into  constrained  mode.  The  presence 
of  this  option  dictates  that  a  FEMALE  CONSTRAINT  NUMBER  should  oe 
included  in  the  runstrea*  (see  section  3).  The  default  mode  for 
hOS*  is  unconstrained.  Leave  off  the  ' C '  option  to  run  W0SM  in 
unconstrained  mode. 


A. 2.  F  -  OPTION 


The  '  F '  option  signifies  that  this  is  a  PREFERRED 
DISTRIBUTION  run.  |»  0  S  M  will  execute  the  PPEDIS  routine  which  reaps 
in  the  PREDIS  file  (see  section  3)  from  the  runstream.  The  default 
mode  will  not  read  in  the  PpEDIS  file. 


4.3.  I  -  OPTION 


The  I  option  instructs  WOS*  to  read  in  the  DESIG  file.  If 
this  option  is  used  then  the  DESIG  file  5  A  D  D  card  should  oe 
included  in  the  runstream  (see  section  3).  The  default  vcae  is 
that  the  DESIG  file  will  not  be  read  into  w  0  S  *  . 


4.4.  M  -  OPTION 


The  option  causes  Wes'"  to  print  an  extra  report  -  the 
ROTATION  EQUITY  report.  This  report  can  be  used  to  investigate 
problem  specialties  with  respect  to  the  rotation  structure.  The 
default  mode  is  that  this  report  will  not  oe  printed. 


4.5.  P  -  OPTION 


The  '  P'  option  turns  on  the  0  M  F  COMPARE  PRINT  switch.  If  this 
ootion  is  used  then  an  extra  report  will  be  printed  which  shows 
all  specialties  not  included  in  the  wPSy  processing  and  the 
reasons  why  they  were  not  included.  The  default  mode  is  that  this 
report  will  not  be  printed. 


4.6.  R  -  OPTION 


This  option  controls  the  f ormattino  of  the  female  officer 
authorizations  output  file.  If  this  option  is  used  then  the  output 
file  will  be  formatted  for  use  by  the  A  G  E  P  6 p  R  y0DE  L  .  If  the 
default  mode  is  used  then  the  output  f i l *  will  be  formatted  for 
use  by  the  YOS  y0DEL. 


4.7 


X  ,Y  ,Z 


OPTIONS 


Only  one  of  these  options  should  be  used  by  <#0SM.  These 
options  instruct  w  0  S  *  as  to  which  casualty  replacement  rate  should 
be  input  into  the  model.  The  *ot  lowing  defines  their  actions  : 

X  -  D+3P  CASUALTY  REPLACEMENT  RATES 
Y  D+60  CASUALTY  REPLACEMENT  RATES 
Z  -  D ♦ 90  CASUALTY  REPLACEMENT  RATES 

The  default  mode  is  that  W0S*1  will  not  use  casualty  replace¬ 
ments  during  this  run. 


_  T  1 


5.  wOS"  CODE 

The  following  ASCII  f  o  R  T  o  a  n  CODE  listing  is  the  complete  -OS* 
model  as  modified  oy  tne  Concepts  Analysis  Agency.  The  source  code 
is  heavily  commented  and  should  be  easilv  read  by  any  f  g  p  T  P  a  n 
programer.  This  listing  .as  prepared  using  the  SCIENCE 
APPLICATIONS,  INC.  SOFTWARE  DESIGN  AND  DOCUMENTATION  LANGUAGE 
(SAI-SDDL).  References  to  SPERRY  system  routines  include  the 
SPERRY  manual  title  and  number. 
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ASCII  FORTRAN  CODE  LISTING 
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**************************** 


35 

1 

PROGRAM  “AIN 

40 

317 

SUBROUTINE 

FILER  (S3 

47 

735 

SUBROUTINE 

READR  (S3 

48 

755 

SUBROUTINE 

NAXRPT  ($3 

50 

376 

SUBROUTINE 

FRPT  (S3 

50 

913 

ENTRY  TITLE 

51 

996 

ENTRY  TOTLE  ' 

53 

1098 

ENTRY  GRAND 

54 

1 136 

SUBROUTINE 

DATA  (S3 

56 

1241 

SUBROUTINE 

S  UN  R  (S3 

53 

1316 

SUBROUTINE 

DIST  (S3 

60 

1  448 

SUBROUTINE 

CNFT  (S3 

63 

1617 

SUBROUTINE 

TYPER 

64 

1664 

SUBROUTINE 

SPCONV  (IARG,A,NN) 

65 

1  71  4 

SUBROUTINE 

ROTREP(S3 

67 

1840 

SUBROUTINE 

LEGEND 

63 

1869 

SUBROUTINE 

PREDIS  (S3 

70 

1965 

SUBROUTINE 

OPT (NOPT) 

71 

2007 

SUBROUTINE 

FACSF  <  A  R  G  3 

72 

2030 

SUBROUTINE 

AOATE  (DATE, TINE) 

73 

74 


NODULE  INVOCATION  TREE 
CROSS  REFERENCE  —  NODULE 


p»GE 


1 

2 

3 

4 

5 

6 
7 
S 
9 

IQ 
1 1 
1  2 
1  2 
1  4 
1  5 
1  6 
1  7 
13 

1  9 

2  C 
21 
72 
22 

24 

25 

26 
27 
5  a 
79 

70 

71 

72 
7  3 

34 

75 

T  A 

37 

t  s 

79 

40 

41 

42 

43 

44 

45 

46 

47 
45 

49 

50 
e  1 
52 
'  3 

54 
'5 

56 

57 

55 
5  9 
10 
‘1 


PROGRAM  *A In 

*33339393333333399333 9 39339933393333 3 339333:333 3 333933*3335 3 3? 

*  DEPARTMENT  OP  THE  arm* 

3  UNITED  STATES  ARMY  CONCEPTS  ANALYSIS  AGENCY 

*  FORCE  SYSTEMS  DIRECTORATE 

*  PERSONNEL  SYSTEMS  ANALYSIS  DIVISION 


9  OfFICER  ASSIGNMENT  S  ystEm  STUDY 

a  ORIGINAL  SOURCE  CODE  :  MILPERCEN  WOMEN'S  OFFICER  STRENGTH 
3  F XTRAC TI ONS  ,  CONVF RS IONS  *  N  D  MODIFICATIONS 

3  5  Y 

a  R.M. MALAY  OCT  leg7 


MODELS 


39333339999339399339939933393339339399399339333 3939399399333933331 
PARAMETER  MAXCMF=4C 

REAL  RATIO, TOTFIL(MAXCMF),TOTACC(MAYCMf5,CASRATf»AXCMf,2‘),»CAS, 
TTHSPC.TOTPCT(MAXCMF) 

INTEGER  AVAIl/O/, AVAIL1/0/,AVAIL2/C/,C9TCNSfs),C3TLNG(t), 

CBTSHT(6),C*FTAP(MAXCMF),C«T(c),CNTL,C0“9AT(t),N0PTtj,THSRE3(5), 

CONTNT(6),CONUS(6),CTAADS(6),FlAG,GTO(1C5,IPAC-E,NONACC("AXC»F), 

AEEP,L0NG(6)jLTAADS(6).maLE(5),FEmaCCCd1,LTL,STLiRFLAG,CRAT, 

NNOS,NONCOM(5),CASREP<5),CARPPO(5),PROP,RET/u/,r5ti:E3C£5,ShORTCa), 

MM0S,STAADS(6),STRTH(6), SUM/O/, TAADSCEI.mAXCL.maxGRD/'/.ThSFAC, 

T0P,T0T»L(11),T0TCMF(MA*C»n,T0TCNT(MAXCMF),r0TATH(MAXC»f), 

INVENT<5,*AXCMf),jNVENT(5),ISPEC(MAYCMF),TOTMLE(M»XCMF), 

TOTINV(MAXCMF),ICMF,I,NUM,JCMF,NU"CMF,TOTTN«("AXCMF), 

TOTINT(maXCmf),TOTSAS(MAxCMF),IFILE 

CHARACTER  GRD(5)*!,M0S*7,N0S*T,PRT0N«1,DAT£*s,NACC*T,TIM;«at 
RTAeLE(7)*2R,PTA9*2®,F175(16)»4,NACCFG(MAXCMF).’,F27.12,F?<;*12, 
FRAT ( 5 ) *4 ,MAX43 (5 ) *1 
EQUIVALENCE  <NNOS,NOS),(M»OS,«OS) 

DATA  G  R  D /  L T  ,  C P T ' , ' M A J  ,  L T C  '  ,  C 0 L  / 

DATARTA8LE/'  FULLREPORT 

'  DISTRIBUTION  SUM-APY 

'  female  strth  totals  eY  spc 

'LT-CPT  FEM  STRTH  TOTS  =Y  SPC', 

'  LT  female  strth  tots  °y  SPC', 

'  FEMALE  STRTH  tots  PY  GRADE 
'  rotation  equity  REPORT  '/ 

DATA  F  2  7  /'JASG.T  27  .  '/ 

DATA  F2<5  /'3ASG.T  2«  .  '/ 


♦  FORMAT  STATEMENT  FOR  ThE  WRITE  STATEMENT  FOLLOWING  PRINT  II?  IN« 

♦  THE  SU8R0UTINP  C M  F  T ( i )  ■  THIS  FORMAT  IS  CHANGED  DURING  RUN  TIMF  * 

♦  IN  THE  *AIN  ROUTINE.  ♦ 

♦  * 

DATA  (F173U),  1  =  1,163  /4H(40(,4HT1t,  ,4HA1  ,  I  ,  4  H  2  ,  c  (  ,  4  H  <<  X  ,1  ,4h5)  ,2  , 

1  4H(4X,,4HF5,1,4H),4X,4H,l5,,4Hjx,F,4H6.1,,4H4X,!,4Ht,eX,4H,I5,,4H/ 

2  J  J  / 
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a 

64 
6  5 
66 

67 

68 

65 

70 

71 

72 

4  7 

74 

75 

76 

77 

78 

79 
°0 
81 
8  2 
°3 
84 
55 
86 
77 
°S 
89 
«0 

91 

92 

6  7 

94 

95 

96 

97 
96 
99 

m 

?s§ 

1  04 
105 
1  06 
107 
1  08 
1  09 
110 
111 
112 
1  1  3 

114 

115 

116 

I  1  7 

I I  8 

119 

120 
121 

\\\ 

124 

125 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

9999 


c 


m*************************************************************** 
♦  ♦ 

♦  THE  FOLLOWING  DATA  STATEMENT  ALLOWS  DYNAMIC  MODIFICATION  OF  THE* 

♦  FORMAT  STATEMENT  FOR  ThE  CASUALTY  REPLACEMENT  RATES  READ  * 

♦  STATEMENT.  ♦ 

4  4 

444444444444444444444444444444444444444444444444444444444444444444 

DATA  (FRAT(I) ,  1  =  1 ,5)  /AH ( I  2  ,  , 4H1 Y  ,  A , 4H3 ,  1 0 ,4HX , f 6 , AH . 2  )  / 

444444444444444444444444444444444444444444444444444444444444444444 
4  4 

♦  N  N  OOOOC  TTTTTTT  EFEEEEE  ::  ♦ 

♦NNNOOTE  ::  ♦ 

♦  NNNO  0  T  E  ♦ 

♦  N  N  N  0  0  T  EEEEE  ♦ 

♦  NNNOOTE  ♦ 

4NNN00  T  E  ::  * 

♦  N  N  00000  T  EEEFEEE  ::  ♦ 

4  4 

♦  ♦ 

4  THIS  PROGRAM  USES  THE  FOLLOWING  RUN  OPTIONS:  ♦ 

4  4 

4  p  - >  0“F  COMPARE  PRINT  ON/OFE  (DEFAULT  IS  OFF)  4 

4  ♦ 

4  c  - >  CONSTRAINED  FLAG  (DEFAULT  IS  UNCONSTRAINED)  ♦ 

4  4 

4  I  - >  OESIG  INVNT  FILE  12  INPUT  (DEFAULT  NO  READ)  ♦ 

4  » 

4  R - >  ROLL  UP  FILE  10  FOR  INPUT  TO  A  6  E  9  G  P 0  (COL-LT.TQY)  * 

+  (DEFAULT  IS  9  Y  SSI  LT-COL)  * 

4  4 

♦  f - >  OPTIONAL  PREFERRED  D I S T P I  9 U T I  ON  ROUTINE  ♦ 

4  4 

4  *1 - >  OPTIONAL  ROTATION  E9UITY  R  t  P  0  R  T  (DEFAULT  NO  RFPORT)  ♦ 

4  4 

♦  x,y,Z  - >  SPECIFIES  D430,D460,D*90  Casualty  replacement  4 

♦  RATES  TO  BE  APPLIED,  RESPECTIVELY.  ♦ 

♦  (DEFAULT  -  NO  CASREP  SET  ASIDE)  ♦ 

♦  FORMAT  :  aXQT, OPTIONS  A  9 S 0 L U T E  .  E L E M E N T  ♦ 

♦  4 

‘44444444444444 


MAIN  DRIVER 


I444  ‘ 


♦  INITIALIZE  DEFAULT  OPTIONS 
4 

444444444444444444444444^ 


‘4444444444444444444444444444 


CNTL  =  2  „  , 
PRTON=N 
R  FLAG  =  0 
C  R  AT  =  - 1 
IFILE=27 
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126 

127 

125 

129 

120 

121 

122 

123 

124 

125 
136 
1  27 
1  2S 
129 

140 

141 

142 
1  43 

144 

145 

146 

147 

148 
1  49 

150 

151 

152 

153 

154 

155 

156 

157 
1  58 

159 

160 
161 

m 

164 

165 

166 
167 
163 

169 

170 

171 

172 
1  72 
1  7  4 
1  75 
1  76 

177 

178 
1  79 
1  «0 
1  ?1 
1P2 
1  ?  3 
104 
1  e5 

1  "8 
189 
1  50 
151 


>44444444444444444444444444444-1 


■444444444 

♦  4 

♦  GET  C  OPTION  -  THIS  OPTION  SETS  THE  CONSTRAINED  FLAG  « 

4  4 

444444444444444444444444444444444444444444444444444444444444444444 


CALL  OPT(NOPT)  3  RETRIEVE  OPTION  WORD - X  73) 

I F (BITS (NOPT, 1 3 , 1 )  .EQ.1  )  THEN 
CNTL=1 
tNDI  F 


♦  GET  I  OPTION  -  TRISGERS  THE  INPUT  OF  THE  FEW  DESIG  FILE 


I F (eiTS (NOPT , 19 , 1 )  .  Ed.  1  )  THEN 
J -0 
J=J  +  1 

READ(12,21,EN0=2)  ISPEC(J),CINVENT(I,J),I=1,5) 
GO  TO  1 
PRINT  20 , J- 1 
ENDI  F 


>44444444444444444444 
4  4 

+  GET  P  OPTION  -  TURNS  ON  OWE  COWPARE  PRINT  SWITCH  ♦ 

4  4 

►4444444444444444444444444444444444444444444444444444444444 


IF(BITS(NOPT,26,1 )  .EQ.1  )  THEN 
PRTCN='Y' 

ENDI  F 


4  GET  R  OPTION  -  CONTROLS  FILE  10  OUTPUT  F  0 0  W  A  T 


I F(9ITS(N0PT,  26 ,1 )  .EQ.1  )  THEN 
R  F  L  A  G  =  1 
ENDI  F 


•44444 


>4444444444444444 


>44444444444444444444 
4  4 

♦  READ  IN  SPECS  FILE  -  CONTAINS  V»LTD  SPECIALTY  CODE  IDS  ♦ 

4  4 

■44444444444444444444444444444 


J  =0 

J  =J  ♦  1 

READ(5,19,END=A)  CNFTAB(J),N0NACC(J) 
GO  TO  3 

NUNCNF=J-1 


>444444- 


•  4  4  4  - 


>44444444444444444444 


4  THE  NUMBER  OF  SPCS  READ  IN  CONTROLS  The  NUMBER  OF  SPCS 
♦  OUTPUT  IN  THE  CMFT  SUBROUTINE. 

4 

>444444- 


4 

-44444 


ENCODE (4,1 5  ,  FI  38 < 1  )  )  NU«CWF 
WRITE(6,24)  NUNC  M  F 


PAG'  3? 


1«2  C 
10?  c 

194  C 

195  C 
19b  C 
107  C 
198  C 
109  C 
200 

2  01 
202 

203 

204 

205 

206 
207 
2  08 

209 

210 

211  C 

212  C 

213  C 

214  C 

215  C 

216  C 

217  C 

218  C 

219  C 

220  C 

221  C 

222  C 

223  C 

m 
m  5 
m 

230 
271 
2  72 


237  C 

238  C 

239  C 

240  C 

241  c 

242  C 

243 
2  44 

245 

246  C 

247  C 
243  C 

249  C 

250  C 

271  C 

272  C 

in  cc 

III  C 

257 


♦  CHECK  IF  D  +  30  00  D  ♦  60  OR  D>90  CASUALTY  RATES  SHOULD  BE  APPLIED  ♦ 


♦  OPTION  = 

♦ 


1F(BITS<N0PT,?4,1).EQ.1)  THEN 
C  R  A  T  =  0 
END  I  F 

If(0ITS(NOPT, 35,1)  .EQ.1)  THEN 
C  R  A  T  =  2 
ENDI  F 

IF(BITS<NOPT,  36,1  )  .EQ.1)  THEN 
C  R  AT  =4 
ENDI  F 

IF(CRAT.GE.C)  THEN 
CRAT=CRAT*5*4 


(USE  ONLY  ONE!’) 


•444444444444444 4  444444444444 


9  OPTION  X 


3  OPTION  Y 


S  OPTION  Z 


>444444444444444444 


♦  THE  VARIABLE  CRAT  CONTROLS  THE  FIELD  TO  9E  READ  IN  THE 

♦  CASUALTY  RATE  FILE.  SPCONV  RETURNS  THE  SPCS  INDEX  AND 

♦  THE  ICHAR  FUNCTION  RETURNS  THE  SSI  INDEX.  THE  CASUALTY 

♦  RATE  IS  STORED  IN  THE  ARRAY  BY  SC, SSI  INDICES. 

4  EXAMPLE:  SPC  11,  SSI  11A  wOULD  9E  STOR'D  IN 

♦  CA$RAT(1,1)  AND  SPC  11,  SSI  11B  «  0  U  L  D 

♦  0  E  STORED  IN  CASRATfl  ,2)  . 

4 

44444444444444444444444444444444444444444444444444444444, 

ENCODE  U, 16,  FRATC3)  )  CPAT 

J  =0 

J=J«1 

REAO(5,FRAT,6ND  =  6)  I C ME , MO S  ,  R C » S 

CALL  SPCONVt ICMF.CMFTAP.NUMCMF)  ? - 

I*<  ICHAR  <M0S<3:3J)-ICHAR(*A:,)>4l 
CASRAT(ICMF,I)sRCAS 
GO  TO  5 
ENDI  F 

IF(J.GT.O)  THEN 
HRITE(6,23)  J-1 
ENDI  F 


■> (  64  ) 


'44444444444444444444444444444 


♦  ASSIGN  WORKING  FILES  27  AND  29  4 

4  4 

444444444444444444444444444444444444444444444444444444444444444444 


CALL  FACSF(F27)  3- 
CALL  FACSF  <  F  2  0  I  3- 
«RITE(6,27) 


■>  (  T1  ) 
■X  71) 


•444444444444- 


♦  READ  IN  THE  SHORT,  LONG,  AND  **  A  X I  *u  M  TOUR  LENGTHS  ALLOWED  ♦ 

♦  CALL  FILER  ROUTINE  TO  DO  COMPUTATIONS  AND  CALL  REPORT  4 

♦  GENERATORS.  ROTATION  EGUITY  REPORT  IS  OPTIONAL.  4 


•44444444444444444444444444444 


READ  (5,22)  STL,LTL,'MAXCL 

flag=cntl 


3  full  rfport- 


3  DISTRIBUTION  SUMMARY- 
3  F  c  *  A  C  C  TOTAL?  9  Y  SPC- 


3  LT-CPT  F  E  A  A  C  C  TOTALS  BY  SPC- 


3  LT  FEMACC  TOTALS  9Y  SPC- 


3  FE»ACC  TOTALS  SY  GRADE- 


■> (  40) 
-X  SO) 
->  (  5  8  ) 
->  (  ED) 


->(  40) 


CALL  FILE?  (57)  3  DO  COMPUTATIONS - X  40) 

RTAB=RTABLE<1) 

CALL  FRPT  (58)  3  FULL  REPORT - X  SO) 

RTAB=RTABLE (2) 

CALL  DIST  (59)  3  DISTRIBUTION  SUMMARY - >(  SB) 

RT AB=RTABLE ( 3 ) 

CALL  CMFT  <  S 1 0 )  3  FE-ACC  TOTAL?  9Y  SPC - X  ED) 

MAXGRD=2 
RTAB=RTABLE (4) 

CALL  CMFT  (S11)  3  LT-CPT  F  E  M  A  C  C  TOTALS  BY  SPC - X  40) 

MAXGRD=1 
RTAe=RTABL£ (5 ) 

CALL  CMFT  (512)  3  LT  FEMACC  TOTALS  3Y  SPC - >(  40) 

RTAB=RTABLE (6) 

CALL  MAXRPT  (513)  a  F  E*ACC  TOTALS  BY  GRADE - X  48) 

RTAB=RTABLE (7) 

I  F  (BITS  (NOPT, 23 , 1 )  .Ei. 1 )  THEN 

CALL  R0TR£P(514)  i  ROTATION  REPORT - X  45) 

ENDIF 

I  F (BI TS (NOPT , 1 6 ,1 ) .EQ .1 )  THEN 

CALL  PREDIS<5999?)  3  PREF  DIST  ROUTINE - X  48) 

cNDIF 

STOP 


■X  40) 
-X  48) 


-X  45) 


FORMAT  ('  (  '  ,  12  ,  '  (  '  ) 

FORMAT  ('?,  ,12) 

FORMAT  () 

FORMAT  ('  ','FE»-0ESIG  INVENTORY  FILE  1?  INPUT  ',13,'  RECORDS') 
FORMAT  ( I  ?  ,  1  X  ,  0  I  5 ) 

FORMAT  (I?, IX, 12, IX, 12) 

FORMAT  ('  *, 'CASUALTY  REPLACEMENT  RATE  FILE  INPUT  '.I7,'  ° f C 0 R D S '  ) 

FORMAT  ('  '.'SPECIALTY  CODE  FILE  INPUT  '.13,'  RECORDS') 

FORMAT  ('0,  OUTPUT  FILES  ARE:*/  '.IPX,  FJLc  10  -  FEMALE  AuTH  BY 
GRADE  &  SPC'/'  ',1EX,'FILE  27  -  WORKING  STORAGE  FILE'/'  ',1°X.'FIL 
fc  29  -  NEXT  YEAR  FEMALE  CONTENT  3Y  C  R  A  D  F  ?  SSI  (INCLUDES  ACC)  ) 


*»*»**«*******************•»***•*< 


>•••••***< 


FTN  DEBUG  ROUTINE 


*  THIS  ROUTINE  IS  CALLED  ?Y  THE  SYSTE*  in  THE  EVENT  OF  A  PROGRAM 
»  FAILURE.  THE  CAUSE  OF  THE  ABORT  AND  THE  LINE  NU*SFR  -HERE  THE 

*  ABORT  OCCURRED  IS  DISPLAYED.  THF  USER  » I L L  BE  LEFT  1%  FTN 

*  MODE. 

*  REFERENCE:  F 0 R T R AN ( A S C 1 1)  LEVEL  10R1  PROGRAMMER  REFERENCE 

*  UP-8244.2 


DEBUG  SUBCHK.SJPTRACE 
AT  9999 
TRACE  ON 
END  PROGRAM 
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317 
313 

319 

320 

321 

322 

323 

324 

325 

m 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 
333 

339 

340 

341 

342 

363 

364 

345 

346 

347 

348 

349  C 

350 

351 

352 

353 

354 
335 

356 

357 

358 

359 

360 

361  25 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 
3^3 

374 

375  26 

376 

377 
375  C 


subroutine  filer  (s) 


SUBROUTINE  FILER(S) 


♦ 

THIS  SUBROUTINE  COMPUTES  A  N  6  APPLIES  ALL  '*ANAPE'*ENT  CONSTRAINTS* 
IT  COMPUTES  THE  MAXIMUM  F  E  "  *  L  E  STRENGTH  AND  THE  MALE  SET-ASIDES* 
AND  WRITES  THIS  DATA  TO  FILE  IFILE. 


INTEGER  K ,L .CMfTOT (6) , J CMF 

REAL  A,B,S,CLtPMAX,TROMAX,RLONG,RSHORT,RCONUS,RNLNG,RNSHT,RNCNS, 
1  RSTL.RLTLtRMCL 
PROP=Q 
J  C  N  F  =0 


444444444444444444444444444444444444444444444444444444444444.44444 
♦  * 
4  PROP  EQUAL  1  IMPLIES  THIS  IS  A  CONSTRAINED  RUN.  THE  VARIABLE  ♦ 
♦  FLAG  IS  SET  3  T  THE  RUN  OPTION  C.  ♦ 


>44444. 


■444444444444444 


I F ( FLAG  .EC.  II  then 
P  R  0  P  - 1 
ENDI  F 
KEEP=FLAG 
PMAX  =  1 


>4444444. 


.444444444444. 


♦  IF  THE  RUN  IS  CONSTRAINED  THEN  READ  THE  CONSTRAINED  ♦ 

♦  MAXIMUM  FFMALE  STRENGTH  NUMBER.  * 


>4444444444444*44 


IF  (PROP. Pa. 1)  then 
R  E  A  0  48,  NUM 
TROMAX=0 
ENDI  F 

REWIND  25  i  FILE  25  =  FEMALE  OFFICER  CONTENT  FILE 
REWIND  26  i  FILE  26  =  A U T H OR  I Z A T I  0 NS  FILE 


4  * 

4  THE  VARIA9LE  PRTON  IS  SET  9  V  THE  RUN  OPTION  P.  IF  THIS  4 

♦  OPTION  IS  IN  EFFECT  THEN  PRINT  INFORMATION  CONCERNING  ♦ 

♦  DISALLOWED  DATA.  « 

4  4 


44444444444444444444444444 


********************************* 


IF  (PR  TON. EQ  .  *Y  'I  THEN 
PRINT  51 
ENDI  F 

READ  (  2  5  ,  4  9  , END*45 )  I C M F , mo S , TH S F A C  ,  C ONTN T 

CALL  DATA  ( S  2  6  )  8  SUBROUTINE  DATA  READS  FILE  26 - >(  '4) 

TTHSPC=(FLOAT(THSFAC))/13C.O 


P  A  G  F  4’ 


379 
330 
3  S  1 
2»2 
2?  J 

2  ?4 

3  ?  5 
2  ®  6 
It  7 
3  3  3 
2  !  9 

2  50 

391 

392 

39J 

394 

395 

396 

397 

3  98 

399 

400 

401 

402 

jaj 

4°5 

4  0  6 
407 

403 

409 

410 

411 

412 

413 

414 

415 

416 

417 
413 

419 

420 

421 
4  22 

423 

424 

425 

426 

427 
423 
429 
420 

431 

432 
423 
4  34 
425 

436 

437 


22 

C 

C 

c 

c 

c 

c 

c 

c 


29 

C 

c 

c 

c 

c 

c 

c 

c 

c 


MIHlHt 


♦  INITIALIZE  FOR  FIRST  SSI  DATA  I  “AGE  READ. 


*************************** 


********************************* 


IF(JC»F.E0.2)  THEN 
JC«F=IC*F 
DO  23  K  =  1  ,6 

C"FT0T (K) =0 
ENDDO 
ENOIF 


>  *  *  ♦  ♦  ♦  < 


********** 

*  ■ 
* 


*  CHECK  FOR  NON-ACC ES S ION  SPECIALTY  AND  SET  M  A  R  K  E  0  ACCORDINGLY. 

*  RETRIEVE  appropriate  casualty  replacement  rate.  * 

*  * 

***************************** 


NACC='  ' 

L=ICNF 

CALL  SPCONV (L.CMFTAB tNU*C"F)  3 - >(  64) 

K=(ICHAR(M0S(3:3))-ICHAR<'A'))a1 
I F (NONACC (L )  .E3 . 1  )  THEN 
NACC=>»* 

ENDI  F 

RCAS=CASRAT(L,K) 


♦ 

♦  INITIALIZE  WORKING  VARIABLES 

* 

****************** 


************************************** 


*********************** 


********* 


DO  29  K - 1 ,5 
CASREP(K)=0 
CAPPROfK)=0 
"ALE(K)=0 
NONC0M(K)=0 
FENACC  <K ) =0 
ROTREQ (K 1 =0 
C'*T(K)=0 
THSREQ (K ) =0 
M AX4? ( K ) ='  ' 
t-NDOO 

FEHACC ( 6 ) =  C 


************************************** 


♦  CALCULATE  SET-ASIDES  and  '»*I*iu*  FEMALE  strength  to®  ♦ 

♦  EACH  GRADE  (LT  -  COL).  SKIP  CALCULATIONS  IF  THE  TOTAL  * 

♦  PERSACS  AUTHORIZATIONS  FOR  THE  GRADE  IS  ZERO.  ♦ 

♦  * 


n**********< 


************************************* 


DO  29  K  =  1  ,  5 

IF  (STRTH(K)  .NE.O)  THEN 
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458  l 

440  C 

441  C 

442  C 

443  C 

444  C 

445  C 

446  C 

447 

448  C 

449  C 

450  C 

451  C 

452  C 

453  C 

454  C 

455  C 

456  C 

457  C 
453 

459  C 

460  C 

461  C 

462  C 

463  C 

464  C 

465  C 

466  C 

467  C 
463  C 
469  C 
473  C 

471  c 

472  C 

473  C 

474  C 

475  C 

476  C 

477  C 
473  C 
479  C 
43Q 

431 

432 

433 

434 

435 

4  9  6 
437 
433 
489 
49J  C 

491  C 

492  C 

493  c 

494  c 

495  C 

496  C 

497  C 

498  C 

499  C 

500  C 

5  C 1  C 
9?2 
503 


>44444444444444444444444 


♦  TO  DETERMINE  AUTHORIZATIONS  AVAILABLE  FOR  F  c  *1  »  L  R  S  . 

♦  NON-COMBAT  AUTHORIZATIONS  ARE  DEVELOPED  BY 

♦  subtracting  combat  authorizations  from  total 

♦  authorizations. 


4***************' 


>444444444" 


N0NC0«OO=$TRTM<K)-C0«9AT(K) 


•44444444444444444 


►44444444444444 


•*  THE  CASUALTY  REPLACEMENT  COMPUTATION  is  THE  NUMBER 

♦  OF  COMBAT-ONLY  AUTHORIZATIONS  FROM  LONG  AND  CONUS 

♦  TOUR  AREAS  MULTIPLIED  BY  THE  CASUALTY  RATE  DEVELOPED 

♦  FROM  THE  STRATIFICATION  MODEL  (CAA). 


•44444444" 


CASPEP(K)=((CBTLNGOO+C9TCNS(Y)).RCAS)+0.5 


•444444444" 


•444444*44444" 


•4444444444444" 


•444444444444" 


♦  ROTATION  EQUITY  COMPUTATION  -  FIRST  A  MEAN  CONUS  TOUR 

•*  LENGTH  IS  DEVELOPED  BY  DIVIDING  THE  TOTAL  CONUS  «UTh  BY 

♦  THE  SUM  OF  THE  LONG  TOUR  AuTH/LONG  TOUR  LENGTH  AND  THE 

♦  AND  THE  SHORT  TOUR  AUTH/SHORT  TOUR  LENGTH. 

♦  NOTE**  A  MAX  MEAN  CONUS  TOUR  LENGTH  .AS  INCLUDED  TO 

♦  TRI«  DOWN  THE  EXCESSIVE  CONUS  TOUR  LENGTH 

«  NUMBERS  TO  A  REASONABLE  REAL  LIFE  NU«3CS  OF 

♦  MONTHS.  The  EXCESSIVE  NUMBERS  ARE  DUE  TO  SPCS 

♦  WITH  NO  OR  MINIMAL  ROTATION  STRUCTURE. 

♦  THE  ROTREQ  SET-ASIDE  IS  THE  CALCULATED  «EAN  CON'JS  TOJR 
4  LFNGTH  MULTIPLIED  BY  THE  DIFFERENCE  OF  THE  "AL‘  ONLY 

♦  LONG  AUTH/LONG  TOUR  LENGTH  4  the  male  ONLY  SHORT  AuTH 

♦  /SHORT  TOUR  LENGTH  AND  THF  *A  L  E  ONLY  CONUS  «UTH.  R0TRE2 
•*  SET-ASIDE  SHOULD  NOT  EXCEED  THE  TOTAL  INTERCHANGEABLE 

♦  POOL. 


•44444444444444444444" 


RSTL=STL 
RLTL=LTL 
RMCL="AXCL 
RLONG=LONG  <  K ) 

R  S  H  0  R  T  =  S  H  0  R  T  (  K  ) 

R  CONUS=CONUS  OO 
RNLNG=CBTLNG (X ) 
RNSHT=C9TSHT<K) 

RNCNS  =CBTCNS  OO 

CL=(RLONG/RLTl)+(RSHORT/RSTL) 


44444444444444444" 


•  44444444444444444444444444444444444 


♦  if  the  denominator  of  the  equation 

♦  CL=RC0NUS / ( (RLONG/RLTL ) ♦ ( RSH0RT /RS TL ) )  IS  ZERO  THEN  THE 

♦  CONUS  TOUR  LENGTH  IS  INDETERMINATE  -  THIS  C»SE  IS 

♦  HANDLED  BY  SETTING  THE  DENOMINATOR  TO  THE  m«xJ“Um 

■*  CONUS  TOUR  LENGTH  ALLOWED.  PMCL.  IE  IT  IS  NOT  ZERO  THEN 

♦  CALCULATE  A  MEAN  CONUS  TOUR  LENGTH. 


•4444444444444444444444444444444444444 


IF(CL.EQ.O.O)  THEN 
CL=RMCL 
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5  04 

505 

506 
50? 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 
51a 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 
533 

539 

540 

541  c 

542  C 

543 
54<, 

545 

546 

547 
545 

549 

550 

551 

552 

553 

554 

555 

556 

557 
556 

559 

560 
5  6  1 


4  3 


H*X4e  (K) ='♦  ' 

t  L  S  F 

CL=RCONUS/CL 

E  N  D  I  F 


>44**4*44- 


>4*4444444*4444*- 


*  IF  the  CALCULATED  M E A N  COMUS  TOUR  LENGTH  IS  GREATER  THAN  ♦ 

*  THE  MAXI  HUP  CONUS  TOU®  LENGTH  ALLOWED  THEN  THE  « E A N  CONUS* 

*  LENGTH  IS  SET  TO  THE  '*AXI«*U'*  CONUS  TOUR  LENGTH  ALLOWED.  ♦ 

4  ♦ 

4444444444  4-4 


I F < CL .GT . RMCL )  THEN 
CL=RMCL 
MAX48 (K) ='♦ * 

END  I  f 


>4**444*444*4444444*444*44*4 
4  4 

4  IF  THE  CALCULATED  MEAN  CONUS  TOUR  LENGTH  IS  NEGATIV®  OR  * 

♦  zero  then  this  case  represents  an  authorizations  strjc-  * 

4  TURF  WITH  NO  CONUS  AUTHORIZATIONS  HENCE  NO  POTATION  ♦ 

♦  STRUCTURE.  ♦ 


1444*4444*44444444444444444444444 


IF(CL.LE.O.O)  THEN 
C  L  =0 . 0 
MAXA»(0  =  '- 
ENDI  F 


4 


* 


♦  SAVE  THE  MEAN  CONUS  TOUR  LENGTH  AND  CALCULATE  THE  * 

4  ROTATION  EQUITY  SET-ASIDE.  ♦ 


4*4444444*4- 


CMT(K)=CL+0.5 

R0TREQ(K)*CL»((RNLNG/RLTL)*CRNSHT/RSTL))-RNCNS*0.5 


4*44444444444*4*444444**4444*4*4 


4  IF  THE  ROTATION  EQUITY  SET-ASIDF  IS  NEGATIVF  then  S e T  IT  4 

*  TO  ZERO  AND  IF  THIS  SET-ASIDE  EXCEEDS  THE  INTERCHANGEABLE* 

*  AUTHORIZATIONS  THEN  SET  IT  TO  T  n  E  N  U  *  B  E  ®  OF  I^TERCHANGt-  ♦ 

*  ABLE  AUTHORIZATIONS. 

4  4 


■444*4444444*4444*4*4*44444*44 


I FCROTREQ (X)  .LT.O)  T  H  F  N 
POTREQ (K 3  =0 
ENDI  F 

I  F  (ROTREQ  (K)  .GT.NONCO>*(X  )  )  ThFN 
ROTRFQ (X) =NONCOM(K) 

ENOIF 
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m 

564 

565 

566 

567 
563 

569 

570 

571 

572 

573 

574 

575 

576 

577 

IN 
if? 

5  ?  2 

5  5  3 
5?4 
5  ?5 
556 
5  5  7  39 
5  8  8 
5S9 
59C 

591 

592 

593 

5°4 

595 

596 

597 

598 

599 

$$? 

m 

s?4 

605 

606 
607 
605 

609 

610 

611  41 

612 

613 

614 

615 

616 

617 

618  C 

619  C 

si? 

622 

623 

624 


625 

626 

627 


»♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦  MALE  NON-COMBAT  REQUIREMENTS  ARE  DETERMINED  BY  USING  THE  ♦ 

♦  MAXIMUM  REQUIREMENT  OF  ROTATION  EQUITY  AND  CASUALTY  4 

+  REPLACEMENT  SET-ASIDES.  male (  K  )  IS  THE  NUMPEP  OF  NON-  4 

♦  C0M9AT  AUTHORIZATIONS  TO  PE  FENCED  OFF  F0»  m£«j  and  ♦ 

4  THEREFORE  CLOSED  TO  «OMEN.  ♦ 


>44444444444444444444 


MALE(K)=MAXO(ROTREQ(K),CASREP(<)) 


■4444444444444444444444444444 


4  THE  THEORETICAL  CONTENT  FOR  WOMEN  IS  CALCULATED  BY 
4  SUBTRACTING  THE  MALE  NON-C  QM3  A  T  REQUIREMENT  F»0'*  THE 
4  NON-COMBAT  REQUIREMENT. 


>44444444444444444444444444 


FEMACC<K)=NONCOM(K)-MALECK) 
I F ( FEMACC  (K)  .LT.O )  THEN 
FEMACC  <K ) =0 
ENDIf 
ENOIF 
ENDDO 


>4444444444444 


4  4 
4  FIND  THF  SMALLEST  FEMALE  STRTH  RATIO  WHICH  IN  ESSENCE  IDEN-  ♦ 
4  TIFIES  THE  MALE  COMBAT  4  MALE  SET-ASIDE  MAXI«UM  COMPAT  RATIO.  ♦ 
4  THIS  RATIO  IS  USED  TO  CALCULATE  THE  FEMALE  POPULATION  AND  THE  ♦ 
4  CAREER  PROGRESSION  SET-ASIDE.  ♦ 
4  4 


>444444444 


RATI0=1 .0 
DO  41  K  - 1  .  5 
a  =  femacc  m 

B=STRTH<K) 
IF(E.GT.C)  THEN 
S=A/8 

IFIS.LT. RATIO) 
RATIO=S 
ENDIF 
ENDIF 

I F (RATIO. GT.1 .0) 

R  A  T I  0  =  1 .2 
ENDIF 
ENDDO 


THEN 


THEN 


■4444444444444444444444444 


♦  DEVELOPS  THE  CAREER  PROGRESSION  SFT-ASIDE  BY  FIRST  CALCULATING  ♦ 
4  THE  FEMALE  POPULATION  =  TOTAL  POPULATION  TIMES  THE  "It  F  E  *  A  L  t  ♦ 
4  STRTH  RATIO.  SUBTRACT  THIS  POPULATION  PLUS  THE  "ALE  ONLY  POPU-  ♦ 
4  LATION  FROM  THE  TOTAL  POPULATION  GIVING  THE  CARPRO  SET-ASIDE.  ♦ 
4  THE  MAXIMUM  MALF  SET-ASIDE  IS  THE  LARGEST  OF  CARPRO,  ROTRfi,  4 
4  AND  CASREP  -  NOT  TO  EXCEEO  THE  INTERCHANGEABLE  POOL  FRO"  WHICH  4 

♦  THESE  SET-ASIDES  ARE  DRAWN.  4 
4  4 
444444444444444444444444444444444444444444444444444444444444444444 


DO  42  K=1 , 5 

femaccoo*float<stbth<k))«ratioaP.; 

CARPR0U)=<STRTHU)-FEmaCCOO)-CCMBAT<*) 
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62e 
629 
6  3  C 
6  51 
652 

6  25  42 
6  24  C 

635  C 

636  C 
6  3  7  C 
65s  C 
629  C 

640  C 

641 

642 

643  43 

644  C 

645  C 

646  C 

647  C 
645  C 

649  C 

650  C 

651  C 

652  C 
652  C 

654  C 

655  C 

m  i 

655 
559 
6  6  u 
661 
662 

663 

664 

665  44 

666  C 

667 

668 

669 

670  C 

671  C 

672  C 

673  C 

574  C 

575  C 
6’6  C 
677  C 
676  C 
679  C 
660 
661 

6  62 
6*2 

664 

665 

6  ? 6  52 

687 

688 
6*9 

690 

691 

692  55 

693 


I F  ( C ARPRO ( K )  . L  T . C)  THIN 
CARPRO(K)  =0 
END  I  F 

malE(K)=MAXO<malEOO,CARPRO(K)) 
maLE(K)=MINO(MALE(K)  ,N0NC0“  (K  3  3 
ENDOO 


•***4*4***< 


■  +  +  +  *********  +  ■****4*+**  +  +  + 


♦  SUP  female  strength  numbers  over  all  grades 


>4444444444* 


DO  43  K  =  1  ,  5 

TROMAX=TROMAX4FEMACC(K) 

ENDOO 


►44444444444444444* 


♦  IF  THIS  IS  A  CONSTRAINED  RUN  T  H c  N  PROCESS  THE  N*XT  SPcCIALTY  ♦ 

♦  ELSE  DEVELOPE  THE  FEMALE  T  H  S  POPULATION  3*  MULTIPLYING  THE  ♦ 

+  FEMALE  STRENGTH  NUM9ERS  9Y  THEIR  CORRESPONDING  THE  FACTOR  4 

4  (INPUT  FROM  FILE  2  5  3  .  ALSO,  IF  THIS  IS  A  CONSTRAINED  RUN  AND  ♦ 

♦  THE  PM  A  X  FACTOR  HAS  BEEN  CALCULATED  THEN  REDUCE  THE  ♦ 

♦  female  strength  numbers  by  this  factor,  once  the  female  ♦ 

♦  strength  NUMBERS  have  been  CALCULATED  ALL  PERTINENT  data  is  ♦ 

♦  WRITTEN  TO  FILE  IFILE.  ♦ 


•444444444444444444444444444444444 


IF  (PROP. EB. 13  THEN- 
GO  TO  26 
ELSE 

DO  44  <  =  1  ,  5 

FEMACC(K)=(FL0AT(FE»ACC(K)))*pmAXY.5 

FEMACC (6)  =  fEMACC(6)  +  f£M*CC(Y  ) 

THSREO(K)=FLOAT(FEMACC(K))*<TTHSPC/(1.3-TTh$PC))*0.5 

ENDDO 


WRITE  (IFILE)  ICMF,M0S,STRTH,C0M°AT,N0NC0M,MAL5,TAADS,FLMACC, 
CONTNT.CARPRO.ROTREQ.CMT, RATIO, LTAADS,STAADS,CTAADS,CASREP, 
NACC ,RC AS .THSREQ .TTHSPC ,MAX48 


444444444444444444444444444444444444444444444444444444444444444 
4  4 

♦  IF  OPTION  R  WAS  SET  THEN  ROLL-UP  SSI  DATA  INTO  SC  DATA  AND  ♦ 

♦  OUTPUT  THESE  NUM9ERS  (COL-LT)  TO  FILE  10  -HICH  IS  USFD  3Y  4 

♦  THE  AGEBGPR  MODEL  AS  THE  AUTM  BASE.  IF  THE  OPTION  R  WAS  NOT  4 

♦  SET  THEN  OUTPUT  THE  INFO  FOR  USE  BY  YOS.  ♦ 

4  4 

4444444444444444444444444*444444*444444444444444444444444444444 


1 f (R FLAG.E9.0I  THEN 

WRITE  (10, 5  C )  ICMF,*OS, FEMACC 
ELSE 

1F(JC“F.E9.ICVF)  THEN 
DO  53  <=1,6 

CMFTOT(<)=CMFTOT(K)+FFMACC(<) 

FNDDO 

ELSE 

WRITE(1Q,54)  JCMF,(CMFT0T(k),k=5,1,-1),C«Ft0T(6) 

jcmf=icmf 
DO  55  <=1,6 

CMFTOT(K)=FEMACC<K) 

ENDOO 
E  NO  I  F 
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694 

6  =  5 
696 
6°7 
6  °8 
699 
720 

731 

702 

703 

704 

705 

706 

7  07 

708 

709  . 

710  45 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 


731 

732 

733 

734 


E  N  0  I  F 
GO  TO  26 
ESDI  F 

44444444444444444. 


>44444444. 


>444444444444444444. 


♦  THIS  IS  ENTRY  POINT  FOR  EOF  ON  FILE  2C. 


-4  44  4 
4 
4 


♦  IF  IT  IS  A  CONSTRAINED  » UN .  .  . C 0 » PU T E  THE  "AX  FEMALE  STRENGTH 

♦  AND  COMPARE  IT  WITH  THE  INPUT  CONSTRAINED  TARGET  NU“  .  .  . 

♦  THEN  R£C0"PUTE  PAXIPUP  F£"ALE  STRENGTH  NUMBERS  FOR  EACH  SPC 

♦  AND  PULTIPLY  THE  RESULT  BY  THE  THE  RATIO  '  P P A  X '  .  .  .  . T H I S 

♦  YIELDS  A  CONSTRAINED  PAXIPU**  FE»ALE  STRENGTH. 

4 

IF  (PROP.EQ.1)  THEN 
PROP=0 
J  C  P  F  =0 

IF(TRO"AX.ST.O)  THEN 

PPAX=(FLO*T ( NU P ) ) / T  R  OP  A  X 
ELSE 

PPAX=0 .0 
ENDIF 
GO  TO  25 

ENDIF 

ENDFILE  IFILE 
I F (RFLAG.EO.  1  )  THEN 

WRITF<10,54)  JCPF,(CPfTOT(X),X=5,1,-1),CPFTOT(6) 


ENDIF 

REWIND 

IFILE 

r 

<--RETURN 

1 

C 

4S 

FORPA  T 

(  ) 

49 

FORPAT 

(I2,A3,4X,  I2.3X.6I5) 

<12, IX, A3, 6( IX, 16)) 

50 

FORPAT 

51 

FORPAT 

(1HO,'  FOLLOWING  AUTHORIZATIONS/CONTENT 

54 

r 

1  PPED') 

FORPAT 

(15,615) 

Vi 

c 

END  SUBROUTINE  FILER 

DRO 


775  SUBROUTINE  READR  (t)' 

736  C 
777  C 

738  C 

739  C  *  SUBROUTINE  READR(I)  » 

740  C  *  ♦ 

741  C  *  *  *  R  E  A  OS  WORKING  FILE  (FILE  I F  I  L  F  J  CREATED  BY  R I L E P ********  *  * 

742  C 

743  C  *  NOTE  THAT  FILE  IFILE  IS  AN  UNFORMATTED  BINARY  FILE  * 

744  C  *  * 

74  5  C 

746  C 

747  READ<IFIL£,£ND=52)  1CHF,MOS,STRTH,CO'iI9AT,NONCO'<',MALE,TAADS,FE'1ACC, 

748  1  C0NTNT,CARPR0,R0TREQ,CI7T, RATIO, LTAADS,STAAOS,CTAAOS,C»SREP,NACC, 

749  2  RC AS , THSREfl , TTHSPC ,MAX48 

750  <--RETURN 

751  52  REWIND  IFILE 

752  <--RETURN  1 

75  3  C 

754  C  END  SUBROUTINE  READR 


Pi G  E  4  P 


755 

756 

757 
753 
759 
7  6  C 
761 
742 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 
77<* 

775 

776 

777 

778 

779 
7  *  C 
7*1 
752 
7*3 
7  ?  4 
7  5  5 
736 
7  ?  7 
7*8 
7*9 

790 

791 

792 

793 

794 

795 

796 
7  =  7 

798 

799 
SCO 
a  0 1 
a  r  j 
a  r  3 

Q  6  4 

3  0  5 
«  "a 
307 

a  C  8 

S  09 

310 

311 
812 

313 

314 

315 

316 

317 

318 

319 

320 


SUBROUTINE  «!*RPT  (1) 

*•********•****•••*••#••*•*••••**•*•••**•****+•***•*•♦•****♦* 

* 

*  SUBROUTINE  »AXRPT  (5) 

* 

* 

*  READS  FILE  IFILF  AND  PRINTS  FE«»lF  STRENGTH  TOTALS  3  T  GRADE 


REAL  PCENTC6) 

INTEGER  SSITOT,TOT,GROTOT(5),ICT,G*DATH(*),SSIATH,TOTATH 


>444444444444444444444444- 


•  4  4  4  4  • 


♦  PRINT  REPORT  HEADING  BY  CALLING  TITLE 

♦ 

>44444444444444444444444444444444441 


R  ET  =1 
IPAGE=1 

CALL  TITLE  S - >(  50) 

WRITE (6.7) 

FORMAT (  O', 20X FEMALE  STRTH  TOTALS  SY  G  R  A  D  E  '  .  7  0  X  ,  '  T  0  T  a  L  PERSACS 

1  AUTH  BY  GRADE  / /6X  , 'SSI  '  ,  5 X  ,  '  L  T  '  ,  5  *  ,  '  C  P  T  '  ,  5  X  ,  *•  A  J  *  ,  5  *  ,  '  L  T  C  , 

2  5X ,'COL',7X, 'TOTAL', 15X,  LT',5X, *CPT',5X.  m  A  J  '  ,  5  X  ,  '  L  t  C  '  , 

3  5X, 'COL', 7X, 'TOTAL'/) 


444444444444- 


♦  INITIALIZE  WORKING  VARIABLES 


>4444444444444444444444- 


>444444444444444444444444444444 


I  C  T  =0 

DO  8  1=1  ,5 

GRDATH ( I ) =0 
GRDT0T(I)-0 
ENODO 
TOT  =0 
TOTATH=0 


•44444 


■4444444444444444444- 
4  4 

♦  MAIN  LOOP  -  READ  AND  PROCESS  INFO  UNTIL  EOF  ON  FILE  I  F I L  E  ♦ 

4  » 

>4444444444444444444444444444444444444444444444 


SSITOT=0 
SSI ATH=0 

CALL  READR ($999)  S 

ICT=ICT4l 


>  (  A7) 


>4444444444444444444- 
4 

4  TOTAL  FEMALE  STRENGTH  NUMBERS  AND  AUTHORIZATIONS  0  Y 
♦  GRADE,  PY  SSI,  AND  CALCULATE  GRAND  TOTALS. 

4 

>44444444444444444444444444444444444444444- 


4  4  4  4 
4 
4 


DO  11  1=1.5 

GR0T0T(I)=GRDT0T(I)4FEMACC(I) 
SSIT0T=SSITCT4FEMACC(I) 
tot  =  tot*  FEMACC  ( I  ) 
GR0ATH(I)=GRDATH(I)4STRTH(I5 


P»6E  4  5 


£21 
922 
82  3 

924 

925 
925 
827 

928 

929 

930 

831 

832 

933 

934 

835 

836 

937 

938 
a  T9 

940 

841 

942 

943 

944 

345 

346 
£47 
9  4  2 
949 
?  R  3 

951 

952 
853 
354 

955 

956 
357 
859 

9  C  9 

963 

961 

i*i 

364 

965 

966 
£67 

962 

969 

970 

971 
8  72 
373 
0  74 
375 


1  1 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


1  2 

c 

c 

c 

c 

c 

c 

c 

c 

c 

999 

13 


1  4 


1  5 

1  5 

c 

c 


SSIATH=SSIATH<STRTH(I) 

TOTATH=TOTaTh«STRTH<I) 

ENDDO 


********************************************************** 


*  PRINT  ONLY  53  LINES  PER  PAGF 

♦  REPORT  HEADING. 


.  EJECT  A  NEw  PAGE  AND  PRINT  ♦ 

4 

* 

************************************ 


I F < I CT . EO. 50)  THEN 
HRITEC6.16) 

CALL  TITLE  3 - - - - - >(  52) 

I  C  T  =  0 

hRITE<6,7) 

E  NO  I  F 


►444444444444444444444444444444444 
4  4 

♦  PRINT  INFO  FOR  SSI  AND  RETURN  TO  START  OF  MAIN  LOO°  ♦ 

4  4 

4444444444444444444444444444444444444444444444444*4444444444^4444 

WRI TE  <6, 1 2  )  NACC,MOS,<FE'*ACC(I>,I=1,5),SSITOT,CSTRThCI),I=1,5), 
SSIATH 

FORMAT (  '  ',4X,A1,A3,5(2X,I6),I9,10Y,5(2X,I6),I9) 

GO  TO  9 


♦  ENTRY  POINT  FOR  EOF  ON  FILE  I F I L  E  -  PRINT  GRADE  TCT»lS  and  ♦ 

♦  AUTHORIZATION  TOTALS.  CALCULATE  OVERALL  PERCENTAGE  FILLS 

♦  BY  GRADE  AND  PRINT  THIS  INFO.  ♦ 


< 


WRITE <6. 13)  (GRDTOT<I),I=1,5),TOTt(GRDATH(D,i«1,5),TOTATH 
F OR MAT(lCs,2Xl 'TOTALS', 618, 10X.6IS) 

DO  14  1=1,5 

1  F  (GRDATHU)  .NE.O)  THEN 

PCENT(I)*FLOAT(GRDTOT(I))/FLOAT(GROATH(I)) 

ENDIF 

PCENT(I)=PCENT(I)*100.0 

ENDDO 

I FC TOTATH. N£ . 3  I  THEN 

PCENT<6)=FLOAT(TOT)/FLOAT(TOTATH)«1CO.O 


ENDIF 

WRITE  C 6.15)  (PCENT(I).I  =  1,f) 

FORMAT  (  *  0  ,  2  X ,  '  t  AUTH,6(3X,F5.1)> 
WRITEC6.16) 

FORMAT <*0' , T  4  4 


’•  DENOTES  NON-ACCESSION  SPECIALTY 


) 


- RETURN  1 


END  SUBROUTINE  MAXRPT 


PAGE  5  C 


in 

8  78 

079 

8  SO 
881 
882 
883 
834 
*85 
*86 

887 

888  C 

889  C 
390  C 

891  C 

892  C 

893  C 

894  C 

895 
396 

897 

898  62 
399 

900 

901 

902 

903 

904 
505 
or* 

907 

908 

909 

910 
511 

912  C 

913 

914 

915  63 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 
923 
929 

9  30 

931 

932 

933  64 

934  ' 

935 

936 

937 
9  38 

939 

940 

941 


SUBROUTINE  F«PT  ($) 


SUBROUTINE  FRPT(S) 

PRINTS  THE  FULL  3-DIGIT  MOS  REPORT 


INTEGER  I  ♦  J  ,  K 

REAL  AID,  FILL, PFRAtOS 


♦ 

♦  INITIALIZE  WORKING  VARIABLES 

♦ 


4 

♦ 


>4444444444444444444444444444 


DO  62  K  =  1  ,10 
TOTAL  <K ) =0 
GTO(K)=0 
ENDDO 

TOTAL (11 ) =0 
A  V  A  I  L  -0 
AVAIL1 =0 
AVAIL2=C 
I P  AG  £  =  1 


■44444444444444444444444444444 


♦  ENTRY  POINT  TITLE  -  RETRIEVES  DATE,  TINE  FRO"  SYSTE"  AND  ♦ 

♦  PRINTS  TYPE  OF  RUN  (CONSTRAINED  OR  UNCONSTRAINED).  PRINTS  ♦ 

♦  REPORT  HEAOING.  * 

4  4 

>4444444444444444444444444444 


ENTRY  TITLE 

CALL  AOATE  (OATE.TIME)  3 - >(  72) 

1=0 

PRINT  80.RTAB 
PRINT  61,  DATE.IPAGE 
T  OP  =  0 

call  typer  a - x  63) 

IPAGE=IPAGE*1 


•444444- 


♦  IF  ENTRY  into  SUBROUTINE  WAS  VI*  FNTRY  POINT  TITLE  THEN  RETURN  ♦ 
4  TO  CALLING  PROGRAM  ELSE  READ  SSI  DATA  FRO"  FILE  1FILE  AND  « 
4  PRODUCE  THE  FULL  REPORT.  ♦ 

4  4 


>*444444444444444444*4444444444, 


•444444444444 


IF  (RET.EQ.1)  THEN 
< - RETURN 

ELSE 

CALL  READR  (  S  79 )  i - >(  A  7  ) 


44444- 


•4444444444444444444444444444 


♦  PRINT  SSI  THREE  DIGIT  IDENTIFIER  AND  GET  SCS  FEN-DESIG 

♦  INVENTORY  NUMBERS 

4 


4  4  4, 


>4444444, 


>44444444444444444444444444444 


-  *  V,<  r*.,  V 


PA&E  51 


942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 
973 

979 

980 

981 

982 

983 

984 

985 

986 

997 

998 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 
1007 


65 


66 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


68 


69 


70 


C 

c 

c 

c 

c 

c 

c 


PRIM  92,  N  A  C  C  ,MOS»  IC*F 
00  66  J=1,«AYCWE 

i  f  eispec  (j  )  .ea.icMF)  then 

DO  65  K  =  1  ,  5 

JNVENT  (K)  =  INV£NT(lf  ,  J  ) 
ENOOO 
ENDIF 
ENODO 


♦ 

+  PRINT  INFO  9Y  GRADE  <LT-COL) 
+ 

♦  *  • 


PRINT  <*3,  <GRD  <K)  ,  STRTHOC)  ,C01«AT<K  )  ,  NONCONdt  >  .BALE  <K  3  , 

1  FENACC  (  K  3  ,C0NTNT (K) , JNVENT  (  K  3  ,CARPRO(K) ,  R  0  T  R  E  0 (  K  3 ■ CASREP(K  3  , 

2  THSREO(K3,CWT(K3tMAX48<K3,K=1,53 


♦  TOTAL  SSI  DATA  FOR  EACH  INDIVIDUAL  SSI 


♦ 
♦ 


DO  68  K  =  1  ,11 
TOTAL (K  3  =0 
ENDDO 

DO  69  K=1,5 

T0TAL(1)=T0TAL(1)*STRTH(K) 

TOTAL(2)=TOTALC2)*COW9AT(K) 

TOTAL(3)=TOTAL(3)4NONCO“(K) 
TOTAL(43=TOTAL(4)*MALE(K) 
T0TAL(51=T0TAL(5)*FEI»ACC(IC) 
TOTAL<63=TOTAL(63+CONTnT(X3 
T0TAL(7)=T0TAL<73+JNVENT(K3 
T0TAL(3)=T0TAL(8)+CARPR0(K) 
T0TAL<9)=T0TAL(9)4R0TRE0(ic) 
total  n0)=TOTAL<10)TCASR£P  Of ) 
TOTAL(11)*TOTAL(11)*THSREOOf) 
ENDDO 

IF  <JC«F.EQ.ICHF3  THEN 
DO  70  K  =  1  ,5 

JNVENT (K3  =0 
ENDDO 
ENDI  F 
ENDI  F 


♦  ENTRY  POINT  TOTLE  -  PRODUCES  A  GRAND  TOTAL  WHEN  CALLED  ♦ 

♦  ♦ 

***************** 


ENTRY  TOTLE 
DO  73  K  =  1  ,5 

G T 0 ( 1 ) =GTO(1 ) 4STRTH (K  3 

GTO(2)*GTO(2)+COW9AT(X) 

GTO(3)*GTO(3)*NONCOM(ic) 

GT0(4)rGT0(4)4(»ALE(K) 

GTO<5)=GT0f5)4FE«»ACC  U3 

GTO (63  =GTO(63  +  CONTNT  U3 

GT0(7)*GT0(7)4CARPR0(K) 

GTO(83=GTO(83+ROTRE8(k3 

GT0(93=GT0(93*CASREP(k3 

GTO<1C)=GTO(10)7TmSRES(X) 


1008 
1  OC  9 
1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 
1019 

m 

1022 

1023 

1024 

1025 

1026 

m 

hh 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 
10  3  9 
1C40 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 
10  5  3 
10  5  4 
1055 

m 

1058 

1059 

m 

1062 

1063 

1064 

1065 

1066 
1067 
1065 

m 

10  71 

1072 

1073 


73 

C 

C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


78 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


cNDDO 
JCWF  =  ICI*F 


4  4  4  4  4  ( 

4 

♦  IF  CALLED 


144444444444444444444 


FRO"  subroutine  SUHR,  RETURN  now, 


,4444444444444 


IF  (SUH.E0.1)  THEN 

< - return 

ELSE 


,44444444444444444444444444 


♦  CALCULATE  FEMALE  PERCENT  OF  AUTHORIZATIONS  AND  FEMALE  ♦ 

4  PERCENTAGE  FILL.  ALSO,  CALCULATE  THE  TOTAL  AVAILABLE  ♦ 

♦  SPACES  TO  FILL  FOR  THIS  SSI.  ♦ 

4  4 


,444444, 


■44444444444444444, 


AID=T0TAL<5) 

I F (TOTAL (1 ) . GT  .0 5  THEN 

PERHO$=AID/TOTAL<1)*100. 

ELSE 

PER»OS=O.C 

ENDIF 

PRINT  ?4,  TOTAL, PERMOS 
AID  =  TOTAL  (6) 

I F (TOTAL < 5) . GT  .0)  THEN 

FILL=AID/TOTAL(5)*10Q 

ELSE 

F I LL -0  •  0 

ENDIF 

AVAIL=TOTAL(5)-TOTAL(6) 

IF(AVAIL.LT.O)  THEN 
FILL=0. 

AVAIL *C. 

ENDIF 

PRINT  P  5 ,  RCAS .RATIO, AVAIL, FILL, TTHSPC 


(44444444444444444444444444 

4 


♦  THE  AVAILABLES  FOR  EACH  SPC  ARE  ADDED  TO  The  INVENTORY  AT  4 

♦  GRADES  01-02  FOR  A  NEW  CONTENT  IN  THE  NEXT  YEAR.  IT  IS  4 

4  ASSUMED  THE  PEOPLE  TRAINED  WILL  BE  IN  this  YEAR  GROUP.  * 

♦  NOTE**  FILE  29  CONTAINS  THIS  INFORMATION  IT  IS  NOT  USED  * 

♦  BY  THE  OASYS  STUDY.  THIS  IS  *  REMNANT  OF  THE  ORIGINAL  * 

♦  WOSM  LOGIC.  ♦ 


(44444444444444444444444, 


contnt(1)=cqntnt(1)4avail 

WRITE  (29,56)  IC"F ,M0S .CONTNT 


4  4 

♦  TOTAL  AVAILABLE  SPACES.  IF  ENTRY  INTO  THIS  SUBROUTINE  WAS  * 

♦  VIA  TOTLS  and  NOT  CALLED  FROM  su  "  r  then  RFTURN  to  CALLING  ♦ 

♦  PROGRAM  ELSE  INCREMENT  THE  LINE  COUNTEP  AND  PRODUCE  ANOTHER  ♦ 

♦  SET  OF  SSI  OUTPUT.  4 


•44444444444444444444444444444 


AVAIL1 =AVAIL1*AVAIL 

avail2=avail2*avail 


PAGE 


e  7 


1074 
10’5 
1076 
107? 

1078 

1079 

1080 
10«1 
1082 

1083 

1084 
10*5 
1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097  79 
1093 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106  C 

1107  80 

1108  31 

1109 

1110 
1111 
1112  82 

1113 

1114 

1115 

1116 

1117 

1118 

1119  3J 

1120 
1121 
1122 
1  1  23  85 

1 124 
1  1  25  36 
1  1  26  87 

I  1  2  7  38 
1128 
1129 

I I  TO 

1131 

1132 

1  1  33  39 

1134  C 

1135  C 


34 


< 


IF  (RET.EQ.1) 
■---RETURN  1 
ELSE 

1  =  1*1 


THEN 


END  I  F 

IFCI.LT. 4)  THEN 
60  TO  64 
ELSE 

CALL  LEGEND  5 
PRINT  87 
ENDI  F 
ENDIF 
60  TO  63 


>  (  67  ) 


■4*44444*4444 

4  4 

4  ENTRY  POINT  FOR  EOF  ON  FILE  IFILE  -  ALSO  ENTRY  POINT  GRAND  -  4 
♦  PRODUCES  A  GRAND  TOTAL  REPORT.  IF  CALLED  r  R  0  M  SUMR  THEN  ♦ 

4  RETURN  WITH  NO  PARAMETER  ELSE  RETURN  TO  PARAMETER  (LINE  ♦ 

4  NUMBER)  .  * 


>4444444" 


■44444444444444*44444" 


(44444444444 


PRINT  £7 

fntry  grand 

PRINT  £8 

PRINT  £9,  GT0.AVAIL2 
IF  (SUM.EQ.1)  THEN 

<  - RETURN 

ELSE 

<  - RETURN  1 

£  N  0  I  F 


1 

2 

3 

1 


A 

5 

6 

1 

1 

1 


1 


A 

5 


FORMAT  (1,T52«A28/T58.'«*UNCL»SSIFIED**'/) 

FOR-AT  (IX,  DATE  ,  A  £  ,  T  5  6  ,  D  E  P  A  R  T  M  E  N  T  OF  THE  A  R  •*  Y  '  ,  T  1  2  J  ,  '  P  A  G  E  ',13 
/TA6, 'UNITED  STATES  ARMY  CONCEPTS  ANALYSIS  A G E N C Y ' / T A  7 , ' P E R S 0 N NE L 
SYSTEMS  ANALYSIS  DIVISION  ' / T 5 0 , ' 0 F F I C r R  ASSIGNMENT  SYSTEM  *0 
DEL') 

FORMAT  A3, 4X,'T0TAL'«3X, 'TOTAL'. AX, 'TOTAL', 5X,'INTCHG' 

,6X,'MAXI*',3X,  CURRENT', AX, 'TOTAL', I3X,  CONUS'/TO, 'PERSACS',2X,'m 

-ONLY', ]X,'INTCHG'.2x  .'SET  ASIDE', AX, 'FFMALE',3X,'FEM-FILL',2X,'FF 

M-DESIG',1X,CARPR0>,2X,'R0TEO',1X,'fASREP>,1X,'FEM-THS>,1x,>»E*N' 

/T11,'AUTH'1AX,'AUTH*3X,'AUTH(WW),3X,'M-ONLY,,6X,'STRTH',3x,'?Y 

DTSPC',3X,'SPEC',1X,I2,Ax,'REQ',AX,*REa',AX,'REO',AX,'Rf3',3x,'TOU 

R'/) 

format  (1x,A3,5x,i5,3x,l5,5x,i5,5x,i5,5x,i5,Ax,l5,5x,iS,6x,iA,3x, 
IA ,3X , IA , 2x  ,  15  ,  16  , A  1  ) 

FORMAT  ('0','TOTAL',T10,I5,3x,I5,Sx,I5,2(5X,I5),AX,l5,5x,I5.i*,A(I 
*,3X),?X OF  SPC  '  , F  6  .  1  ) 

FORMAT  (1X  ,  5X  , 'C ASRE P  RATE  = ' , F 6  .  T , A  X , ' F E M A L E  'TRTh  RATIO  =  '  ,  F  £ . 3 , 
2X, 'AVAIL  =  ',I6,?X,'FILL  =  ', F7. 1  ,?x  , 'THS  3  ',F£.2) 

FORMAT  (I2.A3.9X  .6  I  5  ) 

FORMAT  ('0*,T58, ••UNCLASSIFIED**') 

ORMAT  ('C',T1D, 'TOTAL  , 3*. 'TOTAL'. AX 
',3X, 'CURRENT', A3x,'Tl  AVAIL'/T9,P 


X, 'TOTAL', 5x,'INTChG',6X, 'maxi 
ersacs',2x,'m-only',3x,'i\tchg 


,2J,  SET  ASIDE', Ax,  FE"ALE  ,3X,  FE*-F1LL  ,TX,'CARPR0  ,5X,  ROTES', 
iX,CASREp,AX,FEM-THS,7X1*SPACES'/T10,'AUTH',5X,AUTH,3X,'AUTH 
(Wh),3X,'M-ONLY',6X,'STRTH,3x,'“Y  DTSPC',8X,'RE3,7x,'reQ',6*,'b 
EG ' , 7X , 'RF8 ',5 X  , 'TO  FILL'/) 

FORMAT  ('  ',GRAND'/1X,  TOTAL', 2X  ,2(16 ,3X)  ,0(16,  AX)  ) 


END  SUBROUTINE  FRPT 
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1177  C 
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1179  C 
1130  C 
1181  C 
1132 
1183 

1134  C 

1135  C 
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1187  C 
1 1  98  C 
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1190  C 
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1193 
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1195 


SUBROUTINE  DATA  <il 


SUBROUTINE  D  A  T  A  (  S  ) 


READS  PILE  2b  THE  AUTHORIZATION  DATA  BASE 


INTEGER  K.IQUAD 


♦  FILE  26  IS  THE  CONVERTED  USAMSSA  AU THOR  I Z A T I ONS  DATA 

♦ 


>♦♦♦♦♦♦♦ 


READ  (26,END=931  NOS, STRTH, COMBAT, LONG, SHORT, CONUS, CBTLNG.CBTShT, 
CeTCNS,TAADS,LTAADS,STAADS,CTAAOS 

♦  ♦ 

♦  IF  A  'CONTENT'  SPC  IS  NOT  FOUND  IN  'AUTh'  FILE  IT  IS  DROPPED.  ♦ 
•*  IF  AN  SAUTH'  SPC  IS  NOT  FOUND  IN  'CONTENT'  FILE  THE  'AuTh'  IS  ♦ 

♦  IS  DROPPEO.  A  MESSAGE  IS  PRINT'D  IN  'ITHFR  C  A  S  c  .  * 

♦  ♦ 

4  4 

♦  IF  THE  SPC  HAS  NO  AUTHORIZATIONS  IT  IS  NOT  PROCESSED  AnD  ♦ 

♦  A  MESSAGE  IS  PRINTED.  ♦ 

♦  ♦ 


IQUAO=0 
DO  91  K=1,6 

IQUAD=I8UAD+STRTH(K) 

ENDOO 


>*4444 

4 


♦  CHECK  IF  THE  AUTHORIZATIONS  FOR  ALL  GRADES  IS  GREATER 
4  THAN  ZERO.  IF  IT  IS  NOT  THEN  SKIP  THIS  SPC. 

4 

IF  (IQUAD.GT.01  then 

IF  ( (NNOS-MMOS )  .LT  .01  THEN 


>4444444444444444444444444 


♦  IF  THE  SPC  FROM  THE  AUTH  FILE  IS  LESS  THAN  ThE  SPC  4 

4  FROM  THE  INVENTORY  FILE  THEN  THE  SPC  AUTH  IS  NOT  4 

♦  PROCESSED.  ♦ 

4  4 


IF  CPRTON.EO.'Y'l  THEN 
PRINT  99,  NO  S , S  T  R  TH 
E  NO  I  F 
ELSE 
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1193 
1199 
12  00 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 
1229 
123C 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

!§!§ 

1240 


C 

C 

C 

C 

C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


93 

c 

c 

c 

97 

98 

99 

C 

C 


>♦♦♦♦< 


►♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 


♦  IF  THE  SPC  FROM  THE  AUTH  FILE  IS  GREATER  THAN  THE  SPC  ♦ 

♦  f  R  OF"  THE  INVENTORY  FILE  THEN  THE  AUTH  FILE  IS  BACKSPACED  4 

♦  one  RECORD  ANO  the  SPC  INVENTORY  IS  NOT  PROCESSED.  « 

4  4 

>v 4  444444444444444444444444444 


IF  ( (NNOS-MMOS ) .GT.O)  THEN 
If  (PRTON.EQ  . 'Y')  THEN 
PRINT  97,  MOS.CONTnT 
END  I  F 

BACKSPACE  26 

< - RETURN  1 

ELSE 


>44444444444444444444444444444 


♦  AUTH  SPC  ANO  INVENTORY  SPC  HATCH  HENCE  PROCESS  THIS  * 
4  SPC.  RETURN  TO  FILER  ROUTINE.  ♦ 

4  4 


>444444444. 


>44444444444444. 


< - RETURN 

ENOI  F 
FNDIF 
ELSE 

IF  (PRTON.Ei.'Y'l  THEN 
PRINT  98,  NOS 
ENDI  F 
ENDI  F 
»0  TO  90 
<--RETURN 


FORMAT  <1H0,1X,'  SPC  ',A3,'  NOT  IN  AUTH  FILE.  ' ,U CONTENT 
1  (IX, 16)) 

FORMAT  dHO,'  SPC  '  ,  A  3  ,  '  HAS  ZERO  AUTH  ON  INPUT  FILE  2t') 
FORMAT  (IHOfIX,  SPC  ',*3,'  NOT  IN  CONTENT  FILE.  AUTH  = 

1  X  ,  I  6  )  ) 


',6(1 


END  SUBROUTINE  DATA 


1 


1 122 

1243 

1244 

1245 

1246 

1247 
1243 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1281 
1262 

1263 

1264 

1265 

1266 
1267 
1263 

1269 

1270 

1271 
1  2  ’’2 
1  2’3 

1274 

1275 

1276 

1277 

1278 

1279 
12  53 
12  31 

1151 

1234 

1285 

1286 
1287 
1  2  a8 
1289 
1  2  0  0 
1281 
1292 

Ml 

1285 

1286 
1297 
1283 
120? 

1300 

1301 

no- 


no 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


117 


c 

c 

c 

c 

c 

c 

c 

c 

118 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


119 


c 


P  *  G  £  56 

SUBROUTINE  SU«R  (S) 

*  * 

*  SUBROUTINE  SUNRCS)  * 

*  * 

*  * 

*  PRINTS  SUGARY  REPORT  » 

*  * 
■**************#*****+**********•#****#**»****•****#************•* 

INTEGER  K 


♦  INITIALIZE  WORKING  VARIABLES  AND  title  PAGE.  ♦ 

♦  * 
1444444444444444444444444444444444444444444444444444 


S  UN  -  1 
IPAGE=1 
R  E  T  =  1 

CALL  TITLE  3 - - - >(  50) 

RET  =  0 

DO  117  K  =  1  ,10 
GTO (K) =0 
ENODO 
A V  A  I L -0 
AVAIL2=0 


444444444444444' 


1444444444' 


14444444444444444444444 


♦  BEGINNING  OF  «AIN  LOOP  -  READ  A  RECORD  FROM  FILE  IFILE  «ND  ♦ 

4  PROCESS  THE  DATA.  4 


14444444444444444444444 


CALL  READR  (S 120)  £ 


>(  47) 


•44444444444444444444444444444444 


4  TOTLE  IS  ENTRY  POINT  IN  SUBROUTINF  FRPT. 


4 

4 


14444444444444444444444444444' 


call  TOTLF  5 - >  (  51  ) 

A  V  A  I  L  =C 


>4444444444444444444444444444444444444444444444444444444.444 
4  4 

4  ACCUMULATE  AVAILABLE  SPACES  FOR  THIS  SPC.  ♦ 

4  4 

444444444444444444444444444444444444444444444444444444444444444444 


DO  119  K*t ,5 

AVAIL=AVAIL4(FEHACC(K)-C0NTNT(K)) 

ENDDO 

IFCAVAlL.LT  .0)  THEN 
A  V  A  I L  *0 
ENDI  F 

AVAIL2=AVAIL2*AVAIL 
GO  TO  118 


A 


END  SUBROUTINE  SUNB 
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1316 

1317  t 
1316  C 
1319  C 
1323  C 

1321  C 

1322  C 

1323  C 

1324  C 
1  325  C 

1326 

1327 

1  3  2  S  C 
1329  C 
1  330  C 

1331  C 

1332  C 
1  333  C 
1334  C 
1  335  C 

1336 

1337  122 

1338 

1339 

1340 

1341 


1350  C 

1351  C 
1  352  C 
13'3  C 

1354  C 
1  355  C 
1  356  C 
1  357  C 

1355  123 

1359 

1360  C 

1361  C 
1  362  C 
1  363  C 

1364  C 

1365  C 
1  366  C 
1367  C 
1365 

1369 

1370 

1371 
13?2 

1  7  7t 

1374 

1375 

1376 

1377 

1378 

1379 
1350 
1  3  9  1 


SU9R0UT I  N  E  OIST  (!) 


*  * 

*  SUBROUTINE  DISKS)  * 

*  « 

•  PRINT  THE  DISTRIBUTION  REPORT  * 

*  * 


REAL  ASUM,RATHI,RATLO,RATSO,RAT$OR,RATSUN,R“EAN,CASLO,CASHItCASSU» 

,cassqr,c*ean,cas-sd,thslo,thshi,thssum,thssqr,tmean,thssd 

ft  ft 

♦  SUMMARY  REPORT  IS  AUTOMATICALLY  CREATED  3  E  F  0  R  E  DISTRIBUTION  * 

♦  REPORT.  INITIALIZE  WORKING  VARIABLES.  ♦ 

ft  ft 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 


CALL  SUMR  <51227  a- 

R  A  TL 0  =  1 

R  A  TH I =C 

RATSUM=C 

RATSQR=C 

CASL0=1 

CASHI =C 

CASSUM=0 

CASSQR=0 
T  H  S  L  0  =  1 
THSHI=G 

thssum=0 

thssor=o 

A  S  UM  s0 


♦ 

♦  BEGINNING  OF  "AIN  LOOP  -  READ  A  RECORD  FROM  FILF  IFILE 

♦  AND  PROCESS  THIS  DATA. 

♦ 


CALL  READP  <512*3  S- 
ASUM=ASUM*1 


♦  IDENTIFY  A  R " Y  WIDE  HIGH  AND  LOW  RANGES  F  0 D  F  F  *  A  L  t  STRENGTH 

♦  RATIO,  CASUALTY  REPLACEMENT  RATES,  AND  T  H  S  RATES. 

ft 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ft- 


I F (RATIO. LT .RATIO )  THEN 
R ATLO=R ATIO 
END  I  F 

if(ratio.gt.raihi)  then 

RATHI=RATIO 
ENDI  F 

if(rcas.lt.caslo)  then 

CASL0*RCA$ 

ENDI  F 

IF(RCAS.GT. CASHI)  THEN 
CASHI=»CAS 
ENDI  F 

I F (TTHSPC .LT.THSLO)  THEN 
THSLO=TTHSPC 
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1  3  c2 
1353 
13c4 
13  5  5 
13  5  6 
1357 
1353 
1389 

1300 

1301 
13«2 
1353 

1304 

1305 

1306 

1307 

1308 

1309 

1400 

1401 

1402 
14G3 

1404 

1405 
1 40e 
1407 

1403 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 
U26 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 
1435 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 


C 

C 

C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

124 


c 

125 


c 

c 


ENDI  F 

I f (TTHSPC . GT . ThSH  I  )  THEN 
THSHI=TTHSPC 
fc  N  D  I  F 


****************************************************************** 
4  4 

♦  COMPUTE  SUMS  OF  FEMALE  STRENGTH  RATIOS  .CASUALTY  P  E e  L  RATES.  ♦ 

♦  AND  THS  RATES.  ♦ 

♦  4 

>44444444444444444444.444444444 


RATSUM=RATSUM+RATIO 

CASSUM=CASSUM+RCAS 

THSSUM=THSSUM+TTHSPC 


4 


44444444444444444444444444444444 


♦  COMPUTE  SUMS  OF  SQUARES  OF  FEMALE  STRENGTH  PATIOS  .CASRFP  ♦ 

+  RATES,  AND  THS  RATES.  . 

4  4 


4444444444. 


►444444. 


>444444. 


.44444444. 


RATSQR=RATSQR+RAT1C**2. 
CASS8R=CASS0R+RCA$*»2. 
THSSaR=THSS0RTTTHSPC»»2. 
GO  TO  123 


4 

4  ENTRY  FOR  EOF  ON  FILE  I  F  1 L  E  (INTERMEDIATE  FILE). 

4  COMPUTE  MEAN  AND  STANDARD  DEVIATION  ON  AR*Y  HIDE  9  A  S  I S  . 


4 


44444444444444444 


444444444444444444444444444444444.444 


IF(ASUM.GT.O.O)  THEN 
RMEAN=RATSUM/ASUM 
CMEAN=CASSUM/ASUM 
TMEAN=THSSUM/ASUM 

IF(<RATSQR/ASUM-RMEAN*»2).GE.0.05  THEN 
RATS0=SQRT(RATSQR/ASUM-PMEAN*«2) 

ENDI  F 

I F ( (CASSQR/ASUM-CMEAN»*2)  .GE.O.O)  THEN 
CASSD=SQRT(CASSQR/ASUM-CMEAN**2) 

ENOIF 

IF((THSSQR/ASUM-TMEAN*»2). GE.O.O)  THFN 
THSSD=SQRT(THSSQR/ASUM-TMEAN**2) 

END  I  F 
ELSE 

PMEAN=O.C 
RATSDsO«C 
C  M  E  AN  *0  .  C 
CASSDsC.C 
TMEAN=0.0 
THSSD=0.0 
ENDI  F 

PRINT  125,  RMEAN,RATLO,RATHI,RATSD,CMEAN,CASLO,CA$HI,CASSD,TM£AN, 

1  THSLO,THSHI  .THSSD 
<--R  ETURN  1 

FORMAT  (/'O', 23*. 'MEAN', 83#'L0--RANEE--HI',eX, 'STANDARD  DEVIATION- 

1  /'O', 'FEMALE  STRTH  RATIO',2X,F7.fc,A*,F6.2,A*,F6.2,11X.f?.4/'j','C< 

2  SUALTY  R  E  PL  RATE' ,2X , F7.4.4X , F6 .2 ,4X, F6 .2 , 1 1  A , F® . 4/'0  , 'THS  RATE', 

3  12X,F7.4,4X,F6.2,4X,F6.2,11X,F8.4) 

END  SUBROUTINE  DIST 
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1445 

1449 

1450 
14*1 
1452 
14*3 

1454 

1455 

1456 
145? 

1458 

1459 

1460 
1441 

1462 

1463 

1464 
1445 
1466 
146? 
146b 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 
147  7 

1475 

147? 

1480 

1481 
14  =  2 
14  *  3 
1  4  a  4 
14=5 
14*6 
14  8  7 

uti 

1490 

14^1 

149? 

149j 

1494 

1495 

1496 
149? 
1493 
1499 
1  5  nQ 

1501 

1502 
1  5C3 

1504 

1505 

Ml 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


126 

c 

c 

c 

c 

c 

c 

c 

c 

127 


subroutine  c*ft  (s) 


SUBROUTINE  C  *  F  T  <  S  } 

PRINT  FENALE  STRENGTH  TOTALS  BY  SPC 


INTEGER  I,II,J,K,KK,L,FTOT,NTOT,ATOT,NTOT,DTOT,TTOT,I70T,STOT 
REAL  A 


>44444444 


♦  INITIALIZE  WORKING  VARIABLES 


►4444444444441 


I  P  A  G  E  =  1 
RET  =  1 
FTOT=0 
NT0T=0 
A  T  0  T  =0 
HTOT  =0 
OTOT=0 
TTOT=C 
ITOT=0 
S  T OT  =  0 
JCMF  =  0 


>4444444441 


>44444444. 


>4  4  4  4  4  4. 


♦  INITIALIZE  TOT  ARRAYS  TO  ZERO  AND  N 0 N - A C C E S S I  0 N  FLAG  TQ  BLANK.  4 


444444444444444444444.44444444444 


00  126  K=1,NUI»C»F 
NACCFG(K)='  ' 
TOTNLE (K) =0 
TOTATH(K)=Q 
TOTCNT (  K  )  =0 
TOTFILFK) =0 
TOTINV (K ) =0 
TOTTHS  (K ) =0 
TOTPCT (K ) =0 
TOTINT (  K  )  =0 
TOTSAS  f K ) =0 
TOTC*»F  (K  )  =0 
ENDDO 


►44444444' 


>4444444' 


>44444444444444444444444444444444 


♦  BEGINNING  OP  »AIN  LOOP  -  READ  A  RECORD  FRON  FILE  IFILS  AND  ♦ 

♦  PROCESS  DATA.  4 

4  4 

■4444444444444444444444444444444444 


CALL  READR  ($136)  a - >(  47) 

DO  128  K=1,NUNC"F 
K  K  =K 

IF  ( IC*F  .EO.CMFTAB  (K)  )  THEN 
DO  131  J  =  1,PAKC*"F 

IF  ( ISPEC  <  J)  . EQ. I  CNF )  THFN 
DO  130  Isl.NAXGRD 

JNVENT (I ) =INVENT ( I , J ) 


> 


e  N  D  D  0 
6C  TO  172 
E  NO  I  F 
ENDDO 

00  135  L  =  1  .""AKGRD 

FTOT=FTOT*FEHACC  <L) 

ntot=ntot*contnt(l) 

A  T  0  T  =  A  T  0  T  •*  S  T  R  T  H  (  L  ) 

*'TOT  =  'lTOT  +  COA,BAT(L) 

TTOT  =  TTOHThSREQ(L) 

ITOT=ITOT«NONCOM(D 
STOT=ST0T*«ALE (L) 

TOTCNTOOC)=TOTC.NT(KK)+CONTNT(L) 

IF  (JCXF.EQ.ICMF)  THEN 
DO  133  II=1,MAXGRD 
JNVENT  < 1  I ) =0 
ENODO 
END  I  F 

DTOT=DTOT+JNVENT(L> 

TOTTHS(KK)=TOTTHS(KK)*THSREa(L) 

TOTATH(KK)=TOTATH(XK)*STBTH(L) 

TOT!ML£(KK)=TOT«'LE(KK)«COvBAT<L) 

TOTINV  (KK)*TOTINV (KKl+JNVENT (L) 

TOTINT (KK)=TOTINT  (<X)+NONCO*(L) 

T0TSAS(tOO=T0TSAS(K<)*"ALE(L) 

TOTC?*FFKK)=TOTCMFOciO*FE',ACC(L) 

ENDDO 

NACCFG(K<)=NACC 
J  C'1F  =  IC*»F 
GO  TO  127 
ENDIF 
ENDDO 
GO  TO  127 

*  * 

*  ENTRY  FOR  EOF  ON  FILE  1FILE  (INTERMEDIATE  FILE).  ♦ 

♦  ♦ 

444444*4444444444444444444444444  4  ♦ +  44  ♦  ♦  H  O  ^  ^  ♦ 


CALL  TITLE  S - - - 

RET  =  0 

DO  137  K  =  1,NUI*C"F 
A=T0TCNT (K) 

IF(TOTCMF(K).GT.C)  then 

T0TFIL(K)*<A/TOTCPF(K))*100. 

ELSE 

TOTFIL(K) =C.O 

ENDIF 

A=T0TC*f(K) 

I F  (FTOT.C,  T.3)  THEN 

TOTACC (  K ) =(A/FT0T) *100. 

ELSE 

TOTACC ( K ) - C  •  0 

ENDIF 

A  =  T0TC*F  (K  ) 

IF  (TOTATH(K)  .GT.O)  THEN 

T0TPCT<K)  =  (A/T0TATH<IC))*1',C. 

ELSE 

T0TPCT(<) =C.O 

ENDIF 

ENOOO 


->(  53) 
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1577 

1578 

1579 
1  5  ?  Q 
15«1 
15  5  2 
1  5  8  J 
1  5  ?  9 
1  5  ?  5 
1  5  S  6 
1587 
1538 
1589 
1  5  9  G 

1591 

1592 

1593 

1594 

1595 

1596 

1597 
15«3 

1599 

1600 
1601 
1602 
1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 


■444444444444444444444444444444444 
4  4 
4  PRINT  TOT  AUTH.TOT  "-ONLY, tot  ffpales.x  of  tot  fe*, current  4 
4  CONTENT,  i  FILL, CURRENT  DESI6,AND  TOT  FEN-THS.  ♦ 


♦  4  4  4  4  4  H 


■4444444444444444 


IF(«tAXGR0.EQ.5J  THEN 
PRINT  140 
ELSE 

I F (MAXGR D.ES .2  )  THEN 
PRINT  142 
ELSE 

I F (PAXGRO  .  EQ  .  1  )  THEN 
PRINT  141 
ENOIF 
ENDIF 
ENDI  F 
PRINT  138 

■  RITE(6,F138)  (NACCFGCY)  ,C**FTA9(K)  ,TOTATH(K)  ,TOT*LF<K)  ,TOTINT  (K)  , 
TOTSAS(K),TOTCNF(X),TOTACC<K),TOTPCTOO,TOTCNT(lf),TOTFlL(<), 
TOTINV(K)  jTOTTHS  (  K  )  •  K  *  1  ,NUMCMF) 

•RITE (6,143)  ATOT,NTOT,ITOT,STOT,FTOT,NTOT,DTOT,TTOT 
PRINT  139 
< — RETURN  1 

C',3X,'PERSACS'.2X,'"-0NLY',?X,'lNTCHG',3X,',|,-0 
4X, 'TOTAL'), 3X, FEN-FILL, 4X,'Y',4X,'FEH-BESI3' 


136 

FORI  AT 

('  ' , 1 4  X  , 

1 

NL Y' , 3X 

,'fe-ale 

2 

3 

,2X.'F£»-THS'/22 
,FEN,6X,  AUTH* 

IO 

FORMAT 

(  0  ,  21  x  , 

1 

otal'.5x, 'total' 

1  4  1 

FORMAT 

(  0  , 22x  , 

1 

ex , 'LTS 

')  „ 

142 

FORMAT 

(  C  , 20x  , 

143 

1 

,'LT-CPT'  5X,'LT 
FORMAT  C'0',/15X 

139 

FORMAT 

C'0',T44, 

9  Y 


IH  AUIM  ,  <!  *  ,  S  ►  (  ASJDt  ,  X,  SIP 

DTSPEC,3y,'filL*,2(3X,5Y  SPEC1)//) 


END  SUBROUTINE  C"FT 


* 
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1617 

1615 

C 

1619 

c 

1620 

c 

1621 

c 

1622 

c 

1623 

C 

1624 

c 

1625 

c 

1626 

c 

1627 

1628 

1629 

1630 

1631 
1622 
1623 

1634 

1635 

1636 

1637 
16  3  8 

1639 

1640 

c 

1641 

c 

1642 

c 

1643 

c 

1644 

c 

1645 

c 

1646 

c 

1647 

193 

1648 

1649 

C 

1650 

c 

1651 

c 

1652 

c 

1653 

c 

1654 

c 

1655 

c 

1656 

191 

1657 

1653 

c 

1659 

152 

1660 

193 

1661 

194 

1662 

C 

1663 

C 

SUBROUTINE  TYPER 


SUBROUTINE  TYPER 

*****  PRINT  HEADER  TOR  PILE  T  Y  P  e 


INTEGER  I 

CHARACTER  CASTYP(4)*9 

DATA  <CASTYP< I) , 1=1 ,4)  /'  D*30  D  +  60  D*03  ','NC  CA 

1  SREP'/ 

IF  (TOP.EQ.1)  THEN 
PRINT  192 
ENDI  F 

IF(CRAT.GE.O)  THEN 
t=(CRAT-4)/10*1 
ELSE 
1=4 
ENDI  F 

30  TO  (190,191)  ,  KEEP 


♦  FILE  type  equal  1  -  CONSTRAINFD 


>*♦♦♦♦♦♦♦♦♦♦♦+♦♦♦ 


PRINT  192,  CASTYP(I)  .NU'* 
<--RETURN 


♦  FILE  TYPE  EQUAL  2  - 

♦ 


UNCONSTRAINED 


PRINT  194,  CASTYP(I) 
<  —  RETURN 


FORMAT  ('1') 

FORMAT  ('0' ,T52 ,A9, '  C 0 N S T R A  I N E D '  ,  I  7 ) 
FORMAT  ('0',T54,A9,'  UNCONSTRAINED') 

END  SUBROUTINE  TYPER 
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1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 
1  6  ?0 
16  81 
1682 

1683 

1684 

1685 

1686 
16*7 
1658 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 
169S 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 
1703 

1709 

1710 
171  1 

1712 

1713 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 


2 


c 

c 

c 

c 

c 

c 

c 


c 

c 


subroutine  spconv  (iarg.a.nn) 


* 

•  SUBROUTINE  SPCONV 

* 

*  THIS  SUBROUTINE  IS  USED  TO  INDEX  THE  OP*D -N AN  AG E D  SPECIALTIES 

*  IN  EFFECT  SEP  82.  OLD  SPECIALTIES  *HICH  HAVE  BEEN  ROLLED  UP  APE 

*  APPROPRIATELY  INDEXED. 

. 


INTEGER  A (NN) , I ARG , IS* , I ,NN 
ISH  =  0 

DO  2  1=1, NN 

IF  (ACn.EQ.IAR6)  THEN 
I AR  G  =  I 

< - RETURN 

E NO  I  F 
cNODO 

IF  (ISW.EQ.O)  THEN 
ISW  =  1 


♦  ♦  - 
* 

*  THIS  SECTION  CHECKS  FOR  POLLED  UP  SPECIALTIES 

♦ 


►♦♦♦♦♦♦ 


IF (IARG.EQ.26)  THEN 
I  A  R  G  =  2  5 
ELSE 

IF  (IARG.EQ.76.0R.IARG.EQ.77)  THEN 
I  A  R  G  =  9 1 
ELSE 

IFCIARG.EQ.83.0R.IARG.EQ.93)  THEN 
I  A  R  G  =  92 
ELSE 

IF(  IAPG.GE  .86.AND.IARG.LE  .88)  THEN 
I  A  R  G  =  95 
ENDIF 
ENOIF 
ENDIF 
ENDIF 
GO  TO  1 
ELSE 

■---RETURN 

ENOIF 


END  SUBROUTINE  SPCONV 
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1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 
1735 

1740 

1741 

1742 

1743 

1744 

1745 
1  746 

1747 

1748 

1749  20 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 
175V  25 

1760 

1761 
1  762 

1763 

1764 

1765 

1766 

1767 
1763 
1769 
177Q 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 


SUBROUTINE  ROTREP(S) 


* 

*  SUBROUTINE  ROTREP 

* 

*  PRODUCES  OPTIONAL  ROTATION  ESUITY  REPORT  -  SHCULC  BE  USED  TO 

*  EXAMINE  CURRENT  PERSACS  AUTHORIZATION  STRUCTURE  IN  *N 

*  EFFORT  TO  EXPLAIN  THOSE  SPCS  WITH  AN  INDETERMINATE  ROTATION 

*  BASE. 

* 


INTEGER  GTOT (9) ,T0TAL(9)  ,K  ,  ICNT 
R  E  T  =  1 
I  P  A  G  £  =  1 
DO  4  K  =  1  , 0 
GT0T(K)=0 
ENDDO 

CALL  TITLE  3 - 

CALL  READP ($995)  3 - 

ICNT=ICNT*1 


>(  50) 
>  (  47) 


4  4 

♦  RETRIEVE  TOTAL  AUTH,  «ALE-ONLY  AUTH,  AND  ROTATION  EQUITY  ♦ 

♦  SET-ASIDES  FROM  FILE  IFILE  AND  SU"  THESE  VALUES  OVER  »LL  ♦ 

♦  GRADES.  ♦ 


+  ♦ 


00  20  x  =  1,5 

GT0T(1)=GT0T(1)+STRTH(X) 
GTOT(2)=GTOT(2)+COMBAT(k) 
GTOT(9)=GTOT(9)+ROTREQ(X) 
ENDDO 
REWIND  26 


♦  GET  CONUS,  LONG,  AND  SHORT  TOUR  AUTH  FROM  THE  AUTH  DATA  ♦ 

♦  BASE  AND  SUM  THESE  VALUES  OVER  *  LL  GR*DCS.  ♦ 


•♦♦♦♦♦♦  4 


READ (26 )  NOS, STRTH.COH0AT, LONG, SHORT, CONUS, C3TLNG,C?TShT,c?TCNS, 
1  TAADS .LTAADS ,STAADS  .CTAADS 
IF(MOS.NE.NOS)  THEN 
GO  TO  25 
ELSE 

DO  30  *=1.5 

GTOT(7)=GTOT(3)+CONUS<x5 

6T0T(4)=&T0TC4)+L0NGCK) 

GTOT(5)=GTOTC5)*SHOPT<K) 

GTOT(6)rGTOT(6)*CBTCNS(*) 

GT0T(?)=GT0T(7)+CBTLNG(K) 

GTOT(S)=6TOT(R)*CBTSHT<*) 

ENDDO 

IF (ICNT. GT. 4)  THEN 


CALL  LEGEND  3 - X  67) 

PRINT  87 

call  TITLE  S - >(  r3) 

I  C  N  T  =  1 
ENOIF 
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1779  C 
1  7  8  0  C 
17  81  C 
1  7  ?  2  C 
1783  C 
17  8  4  C 

1785 

1786 

1787 

1788 

1789 

17°0  110 

1791  C 

1792  C 

1793  C 

1794  C 

1795  C 

1796  C 

1797  c 

1798 
1709 
1800 
1301 
1802 
1  9  C  3 
18C4 
7805 

1306 

1307 

1303  115 

1309 

1310 
1811 

1312  C 

1313  C 

1814  C 

1815  C 

1316  C 

1317  C 
1818  C 

1319  999 

1320 

1321 

1322 

1823 

1824 
1325 
1826 

1327  2C0 
1828 
1829 
1630 

1331  231 
1832  205 

1333  37 

1334  210 

1335  209 

1336 
13  37 

1  5  TS  C 
1339  C 


►44444444. 


♦  PRINT  INFO  FOR  THIS  SSI 


>4444444444444444444' 


PRINT  2GO,NACC,MOS 

PRINT  201,(6R0(K),STRTH<<)  ,CO«“AT(K),CONUSOC),LONGU),$HORTU)  , 
CBTCNSOO  tCBTLNG(K)  ,  C3T SHT  (K),ROTREQ(K)  ,  CMT  (if)  ,MAX4fc(K)  ,  K  =  1  ,5) 
DO  110  K=1 ,9 
TOTAL (K ) =0 
ENDDO 


♦  TOTAL  AND  PRINT  TOTALS  FOR  THIS  SSI 

4 


>44444444444444444444 

4 

4 

4 

>44444444444444444444 


=  TOTAL  < 1 1 ♦STRTHCK) 
=TOTAL (2) ♦COMBAT (K) 
=  TOTAL  <  3)  +  C0NUS ( K ) 

=  T0TAL  ( 4)  ♦  LONGOO 
sT0T  A  L ( 5) ♦SHORTCk) 
=T0TAL(6)*CBTCNS<K) 
=  TOTAL ( 7) +CPTLNG  (K  ) 
=TOTAL<8) *CBTSHT(K) 
=TOTAL (9) ♦ROTREQ(K) 


DO  115  K*1, 
T0TALC1 5 
TOT  A  L  ( 2  ) 
TOTAL (3) 
TOT  A  L ( 4 ) 
TOT  A  L  (  5  ) 
TOTAL (6) 
TOTAL  f 7) 
TOT  *  L  <  8 ) 
TOTAL  (9) 
ENDDO 

PRINT  205, 
ENDIF 
GO  TO  5 


♦  ENTRY  POINT  FOR  EOF  ON  FILE  IHU.  PRINT  GRAND  TOTALS.  ♦ 

4  4 

call  LEGEND  3 - - -->(  87) 

PRINT  87 

CALL  TITLE  9 - - - X  53) 

PRINT  209 
PRINT  21C,  GTOT 
PRINT  87 
R  E  T  =0 

< — RETURN  1 

FORMAT('0',30X.A1,A3,2X,5<'TOTAL'.2X).'CONy$',3X, 'LONG', 2X, 'SHORT' 
I  , 3X,'MALE  ,2X,  «EAN'/'  ,?5X,  'PE R SA C S  ,  1 X . '»-ONL Y '  ,  1 X  , 'CONUS', 3x.' 

!  LON6',2X,'SHORT',2X,3<'M-ONLr', IX), 'R0TF0*,?X, 'CONUS'/'  ' , 37X  ,  d  (  *  A 

S  UTH  ,3X),  RES  ,3X,  TOUR'/l 
FORMATC'  ',I1X,A3,9I7.I6,A1> 

FORMAT (0»?0X,  TOTAL,  I  6  *  8  I  7  ) 

FORMAT('0',T58,'**UNCLASSIFIEO»4') 

FORMAT  ('  ',30x, 'GRAND'/'  ' ,30X, 'TOTAL' , 16,817) 

FORMATC '0  ,36X,5<  'TOTAl',2X) , 'C0NUS',3X,  LONG' . 2x , 'ShORT', 3x , 'MALF 
I  /'  ,35X,PERSACS', IX. 'M- ONLY', IX. 'CONUS', ?X.*L0NG',2X, 'SHORT', 2x 
!  ,3('M-0NLT',1X)  ,'ROTEQ*/'  ',37X,8C*AUTH',3X)  ,  RF8  '  /  ) 

FND  SUBROUTINE  ROTREP 
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I960 

ISM 

C 

SUBROUTINE  LEGEND 

1963 

C 

* 

* 

1846 

c 

*  SUBROUTINE  LEGEND 

* 

1945 

c 

* 

* 

1846 

c 

*  PRINTS  LEGEND  AT  Th?  30TT0* 

OF 

PVERY  PAGE  OF 

THF  FULL  REPORT 

* 

1947 

c 

* 

* 

1848 

c 

#  #  * 

•  *  * 

1949 

1950 

c 

PRINT  75 

1951 

PRINT  76 

1952 

PRINT  90 

1953 

PRINT  76 

1854 

PRINT  91,  MAXCL 

1855 

PRINT  76 

1856 

PRINT  92 

1857 

PRINT  76 

1958 

PRINT  77 

1859 

< — RETURN 

1860 

75 

FORMAT!'0',T40,' 

*',54!'-'),'* 

') 

1861 

76 

FORMAT!'  ' , T  4  0  ,  ' 

',54!'  '),'| 

'  ) 

1862 

77 

FORMAT!'  ' , T40 ,  ' 

►'.54!'-') 

') 

1863 

90 

FORMAT!'  ' , T40  ,  ' 

'  ,  3  X  ,  '  *  Denotes 

Non-Accession 

SDecialty',1ax,' 

!') 

1964 

1965 

91 

FORMAT!'  '  ■  T  4  0  ,  ' 

1  3,  Months*, IX,' 

'  j  3x  ,  '•*  Denote  s 

"esn  Conus  Tour  Length  Exceeds 

',  I 

1866 

92 

FORMAT!'  '  ,  T  4  0  ,  ' 

' , 3 X , '-  Denotes 

No  Conus  Authorizations'. 19x.' 

1  ') 

1967 

C 

1368 

C 

END  SUBROUTINE  LEGEND 
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mi 

18  71 

1872 

1873 
187<. 
1575 

1876 

1877 
1378 

1879 

1880 
1881 

1332 

1333 
1834 


1886 

1887 

1888 

1389 

1390 

1391 

1892 

1893 

1894 

1895 

1896 

1397 

1398 
1899 
19C0 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

m 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1971 

1972 
19*3 
1934 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

300 


c 

c 

c 

c 

c 

c 

§32 


333 


335 


SUBROUTINE  PREDIS(t) 


SUBROUTINE  PRECIS 

MODIFIES  WOSM  FEMALE  STRENGTH  DISTRIBUTION  BY  APPLYING  » 
DISTRIBUTION  FILE  WHICH  CONTAINS  THE  SPC  AND  ITS  DESIRED 
DISTRIBUTION  RATE.  THIS  RATE  IS  APPLIED  TO  THE  FE«ALc 
STRENGTH  NUMBERS  BY  GRADE  AND  SSI.  A  NEW  FILE  10  IS  CREATED 
FOR  INPUT  IN  THE  AGEBGPR  MODEL. 


INTEGER  PCT(MAxCMF),ISP,JCMF,I,J,K,CMFT0T(6) 

CHARACTER  F  28*1 2 

DATA  F  2  8  /'3ASG.T  2e  .  '/ 

JCMF=0 
REWIND  10 


'444444444444444444'! 


*  ASSIGN  NEW  WORKING  FILE  28 

♦ 


CALL  FACSFCF28)  3- 


♦  READ  IN  PREFERRED  DISTRIBUTION 

4 

44444444444444444444444444444444444444444 

1=1 

READ(5,301,END=302)  ISP.PCT(I) 

1*1*1 
GO  TO  300 


►44444444444 
4 
4 
4 

44444444444444444444444444444 

- >(  ) 

44444444444444444444444444444 

4 

4 

4 

44444444444444444444 


4  REDISTRIBUTE  FEMALE  STRENGTH  NUMBER  S  BY  PREDIS  PATES 

4 


4  4  4 4444444444. 4444444. 444 

4 
4 


►444444444444444 


CALL  READR(S4001  3 - >C  47) 

J  =ICMF 

I  F  (  JCMF.EO.O)  THEN 
JCMF=ICMF 
DO  303  K=1,6 
C"FTOT(K J  =0 
ENDDO 
ENOI  F 

FEMACC (6) =0 

call  spconv ( j , cmftab ,numc* f )  3 - ><  so 

DO  305  1=1,5 

FEMACC  f I 5  =  <FEMACC<I ) ‘(FLOAT (PCT(j) ) /I  000.0) ) *0.5 

FEMACCf6)=FE""ACC(6)‘FEMACC<I) 

THSREQ(I)*FLOAT(FEMACC(I))‘(TTHSPC/(1.0-TTHSPC))‘0.5 

cNDDO 

•  RITE (28)  ICMF, MO S.STPTH, COM  BAT. NONCO",*ALE,TAADS, FEMACC, CON  TNT, 
CARPR0,R0TRF8,CMT,RATI0,LTAADS,STAADS,CTAADS,CASREP,NACC,RCAS, 
THSREQ,TTH$PC,MAX48 
IF(JCMF.EO.IC"F)  THEN 
DO  310  K  =  1 , 6 

CMFTOT(K)=CMFTOT(K)*FEMACC(K) 
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1965  C 

1966  C 

1967  C 

1968  C 

1969  C 

1970  C 

1971  C 
19?2  C 

1973 

1974 

1975 

1976 

1977 
1973 

1979 

1980 

1981 
1932 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

199 1 

1992 

1993 

1994 

1995 

1996 

1997 
1993  C 

1999  C 

2000 
2001 


200. 

2004 

1881 


SU3ROUT I NE  OPT(NOPT) 


SUBROUTINE  OPT 

RETRIEVE  THE  3XQT  OPTIONS  VIA  EP  OPTS.  THIS  ROUTINE  IS 
AVAILABLE  IN  SYSS*RLIBS 


THIS  SUBROUTINE  HAKES  AVAILABLE  THE  OPTIONS  FOLLOWING  THE 
iXQT  CALL  STATEMENT  VIA  ER  OPTS.  WHEN  CONTROL  IS  RETURNED 
THE  SPECIFIED  OPTION  LETTERS  ARE  SET  IN  REGISTER  AC  IN 
MASTER  8IT  NOTATION,  THAT  IS,  LETTE#  A  SETS  BIT  25,  LETTER  9 
SETS  BIT  24 . LETTER  Z  SETS  BIT  0.  BITS  35  -  26  ARE  ALWAYS 


ZERO. 

35  26  25  0 

I  ?  A  8  C  D  . . . .  ..V  I  | 


BIT  POS.  13  . . . . . 36 

THE  ABOVE  ILLUSTRATION  IS  THE  hORD  FOR  THE  ARGUMENT  NOPT. 
THE  BITS  FUNCTION  RETURNS  A  1  IF  THF  9IT  POSITION  ASKED 
ASKED  FOR  HAS  BEEN  SET: 

BITS (NOPT , I , 1 )  WHERE  I=INITIAL  BIT  POSITION 
That  IS,  1=13  REFERS  TO  BIT  25,  1=14  REFERS  TO  9IT  26  AND 
SO  ON. 


♦  REFERENCE  : 


EXEC  LEVEL  36R1  VOL  2  PROGRAN*ER  REFERENCE 
PUP-4144. 2P2 

ASCII  FORTRAN  LEVEL  1 0R  1  PR06RAH<«ER  reference 
up-8244.2 


END  SUBROUTINE  OPT 
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t  u  V  w 

2009 

2010 
2011 
2012 
2013 
201  * 


2018 

2019 


2022 

2023 


)26 


2029  C 


SUBROUTINE  FACSF  (ARG) 


SUBROUTINE  FACSF 

THIS  ROUTINE  SUBMITS  AN  EXECUTIVE  CONTROL  IMAGE  (ARG)  FOR 
INTERPRETATION  AND  PROCESSING 


FACSF  IS  USED  IN  THIS  PROGRAM  TO  ?ASG  TEMPORARY  MASS 
STORAGE  FILES.  »RG  SHOULD  BE  A  STANDARD  SPERRY  CONTROL 

IMAGE. 


♦  ,♦ 

♦  REFERENCE  :  ASCII  FORTRAN  LEVEL  10R1  PROGRAMMER  REFERENCE  ♦ 

♦  UP-8244.2  ♦ 


END  SUBROUTINE  FACSF 
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im 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

im 

2044 

2045 

2046 

2047 

2048 

2049 

2050 


SUBROUTINE  ABATE  (DATE, TINE) 


SUBROUTINE  ABATE 

RETURNS  THE  CURRENT  DATE  AND  TI«E 


THE  ARGS  DATE  AND  TIME  SHOULD  BE  CHARACTER  VARIABLES  OF 
EIGHT  CHARACTERS  IN  LENGTH.  BATE  IS  RETURNED  AS  '"MDDTy 
AND  TIME  IS  RETURNED  AS  'HHMMSS 


♦  REFERENCE 

♦  UP  *3244 . 2 

♦ 


END 


ASCII  FORTRAN  LEVEL  1 D R 1  PROGRAMMER  REFERENCE 


LINE 
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1 

35 
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2 

70 
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64 
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4 

71 
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40 

FILER 

6 

54 

DATA 

7 

64 
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5 

50 

FRPT 

9 

58 

DI  ST 

10 

56 

:  SU"R 
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5  C 

:  .  TITLE 

12 

72 
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1  3 

63 
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47 
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15 

47 
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17 

67 
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53 
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19 

47 
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20 

60 
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21 

47 
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50 
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23 

:  **  SEE  LINE 
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24 

48 

NAXRPT 

25 

50 

:  TITLE 

26 

:  **  SEE  LINE 
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27 

47 

:  reads 

28 

65 

ROTR  EP 

29 

5  C 

:  TITLE 

30 

:  **  SEE  LINE 

1  1 

31 

47 

REAOP 

32 

67 

:  LEGEND 

33 

68 

PREDIS 

34 

71 

:  FACSF 

35 

47 

:  READR 

36 

64 

:  SPCONV 

37 

60 
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20 
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:  *»  SEE  LINE 

MODULE 

CROSS  REFERENCE  LISTIN 
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60 
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69 
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46 
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54 

SUBROUTINE  DATA 

1136 

PAGE 
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63 

SUBROUTINE  TYPER 
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68 
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DIST 
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PROGRAM  MAIN 
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5  8 

SUBROUTINE  DIST 
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59 
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38 

PROGRAM  MAIN 
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744 
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6? 

SUBROUTINE  PREDIS 

1805 
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n 

SUBROUTINE  FACSF 
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2329 
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38 

PROGRAM  MAIN 
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40 

SUBROUTINE  FILER 
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46 
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FRPT 
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39 

PROGRAM  MAIN 

2*0 
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50 

SUBROUTINE  FRPT 
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53 

ENTRY  GRAND 

1135 

GRAND 

PAGE 

53 

ENTRY  GRAND 
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1133 
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SUBROUTINE  SUMR 

1311 
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66 

SUBROUTINE  ROTREP 

1334 

LEGEND 
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53 

ENTRY  TOTLE 

1  0  B  2 
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65 

SUBROUTINE  ROTRFP 

1773 

PAGE 

66 

1819 

PAGE 

67 

SUBROUTINE  LEGEND 

1843 
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MAIN 
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35 

PROGRAM  MAIN 

1 

HA  XR  PT 
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39 

PROGRAM  MAIN 
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48 

SUBROUTINE  "AXRPT 
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49 
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MODIFY  CONTINUATION  RATES 


6.1.  SOURCE  CODE 

This  program  should  be  used  by  all  0»SYS  users  until  viable 
female  continuation  rates  can  be  obtained.  Female  continuation 
rates  are  extracted  from  the  overall  female  continuation  rates  for 
each  specialty  code  by  using  the  percentage  difference  of  the 
male-female  overall  continuation  rates  and  the  female  overall 
continuation  rates  and  then  applying  these  percentage  differences 
against  the  male-femate  specialty  continuation  rates. 

This  ASCII  FORTRAN  listing  xas  prepared  using  the  SA1-SDDL 
processor • 


P  *  6  E  77 


7 
a 

9 
1C 
11 
12 
1  3 

14 
1  5 
16 
17 

15 

19 

20 
21 
22 

23 

24  4 

25  1 


26 
27 
2  S 
75 

30 

31 
*2 

73 

74 

35 

36 

37 
7  S 
T5 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
*  3 

64 

65 

66 


PROGRAM  MAIN 


*  * 

*  THIS  PROGRA"  CREATES  F  E  w  A  L  E  CONTINUATION  RATES  3ASED  OS  THE  * 

«  MALE  and  OVERALL  CONTINUATION  RATFS  CURRENTLY  used.  * 

*  * 


REAL  OVRCOM(30),OVRWOM(30),OVRPCT(30),SPCCO»(70),SPC«OM(39), 

1  SAVWOM(30),NENmOM(30),SAVCOM(?0),SAVUMn(3CI),NONCOm<tO) ,N0Nw*N(39) , 

2  ACCCOM(30),ACCA»N<30),N0NPCT(?0),ACCPCT(30) 

INTEGER  I,J,ICMF,JCMF,N0NACC(36),A<76) 

CHARACTER  INI  5*58 , INI  6*65 


4444444444444444444444444444444444444444444444444444444444444*4444 
♦  4 

4  INPUT  valid  specialty  codes  and  type  OF  SPECIALTY  code  ♦ 

4  4 

444444444444444444444444444444444444444444444444444444444444444444 


DO  1  1=1,76 

READ(12,i,EN0=2)  A(I) ,NONACC(I) 
FORMAT!  ) 

ENDDO 


4  4  4  4  i 


■444*4444444444444444444444444444 


♦  INPUT  OVERALL  CRATE  FILES  FOR  COMBINED  AND  FEMALE  OFFICERS 

4 

4444t4444*444444444444444444444444444444444444444*4444*444*444t*( 


R  E  AD ( 5 , 6 )  SAVCO" 
REA0(5,6)  S‘VWMN 
FORMAT (  ) 


■  4444444444444444444444444444 


*  CALCULATE  CUMULATIVE  DATA  POINTS  FOR  COMBINED  AND  FEMALE  CRATES* 

4  4 


*  DISTRIBUTE  OVERALL  CRATES  FOR  ACCESSION  AND  N 0 N - A C C E S S  I  0 N  SPCS  ♦ 
4  NON-ACCESSION  SPCS  GET  F  £  M  OVERALL  CRATES  FOP  1ST  EIGHT  YEARS  * 

4  4 


■44444444444444444444 


DC  9  1=1 ,70 

NONCOM (I ) =S AVCOM  ( I  ) 
NONHMN(I)=SAVttMN<  I) 

ACCCOM ( I ) =SA VC  0M( I ) 

AC  CWMN ( I ) =S A VHMN (  I  ) 

IF(I.LE.S)  then 

NONCO"! I ) =S  A  VWMN (  I  ) 

END1F 

ENDDO 

DO  10  1=1 , 3  C 

ACCPCT(I)=C.O 
NONPCT ( I ) =0. 0 
IF(I.GT.I)  THEN 

noncom(i)=noncom(i)»noncom(i-i) 
N0NWMN(I)=N0NWMN(I)*N0NWMN(I-1) 
ACCCOM(I)=ACCCOM(I)»ACCCOM(I-1) 
ACCWMN(I)=ACCHMN(I)*ACCWMN(I-1) 
END  I  F 

IF(NONCOM(n .GT.O.O)  THEN 

NONPCTCI J  =NON«MN< I ) /NONCOM (  I) 


in  '  nfWte— 


Ady. 
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67 

63 

69 

70 

71 

72 

73 

74 

75 

76 

77 
73 


1  0 
C 

c 

c 

c 

c 

c 

c 


79  11 

80 


«n 

82 

83 

84 

85 
36 

87 

88 
39 

90 

91 

92 

93 

94 

95 

96 

97 
93 
99 

100 
101 
1  32 

103 
1  ?4 
10.5 
1  06 
1C7 
106 
1  09 
110 
111 
1 12 

113 

114 

115 

116 
117 
1  1  5 
1  19 
120 

121  16 
122 

123 

124  12 

125  C 


15 


IF  (ACCCO«*(I)  .6T.0.0)  THEN 

ACCPCT(I) =ACCWMN(I ) /ACC  COM  !  ) 
ENDIF 
ENDDO 


•4++4++++++4++4+4++4+++4+++4+++444+4++4+4 
+  + 

♦  INPUT  SPC  CRATE  DATA  FOR  COMBINFD  AND  FEMALE  OFFICERS  * 

♦  4 

►44444444444+44444444 


READ(10,6.END=999)  ICMF.SPCCO* 
READ (11 ,  6  J  JCMF.SAVWOM 


4+++++++++44 


I F( I C"F .NE. JCMF  )  THEN 
GO  TO  998 
ENDI  F 


►4444444444* 


•444444 


►44444* 


•4444+4 


4  4  4  4  4  • 

4  4 

+  IF  SPC  IS  A  NON-ACCESSION  SPECIALTY  THEN  SET  FI»ST  FIGHT  YEARS  ♦ 
+  TO  OVERALL  F£«  CRATES  ELSE  MOVE  VALUES  INTO  »OR<ING  VARIABLES  + 


►4444444 


►++++++44+++4++4+++4++ 


DO  12  1=1,36 

I F ( ICMF. EQ. A  (I  )  )  THEN 


ifinonacc (I) .eq.1  )  Then 
DO  15  J  =  1 ,30 

OVRCOM  J  )  =NONCOM  J  ) 
OVRWOM(J) =NONNMN ( J  5 
OVRPCT<J)=kO\PCT(J) 
IF(OVRPCTCJ) .GT.1 .00) 
0VRPCT(J)=1 .00 
ENDIF 

IF(J.LE.S)  THEN 

S  PC  C  OM ( J ) =$A VWMN ( J ) 
ENDIF 
ENDDO 
ELSE 

DO  16  J  =  1  ,30 

OVRCOM(J) =ACCCO«KJ) 
OVRWOM  (  J ) =ACCWMN ( J) 
OVRPCT ( J ) =ACC  PCT ( J ) 
IF(OVRPCT(J) .GT.1 .00) 
OVRPCT  (J  )  =1  .00 
ENDIF 


THEN 


THEN 


ENDDO 

ENDIF 

ENDIF 

ENDDO 


PA&£  79 


1  26 
127 
1  28 
129 
1  70 
131 
1  32 
1  73 

134 

135 

136 

137 
1  38 
175 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 
1  5  C 

151 

152 

153 

154 

155 

156 

157 
15s 

159 

160 
161 
1  62 

163 

164 

165 

166 
167 
163 

169 

170 

171 

1  72 
1  73 
1  7  4 
1  75 
1  76 
1  77 
173 
1  79 
1  80 
181 
1  ?2 
183 
1  0  4 
185 
1  86 
187 
1  "3 

189 

190 


C 

C 

c 

c 

c 

c 

c 

c 

c 


1  3 

C 

C 

c 

c 

c 

c 

c 


25 

26 
C 

c 

c 

c 

c 

c 

c 


51 


1 


52 

1 

53 

1 


55 

60 


1 

1 


C 


+ 


♦  +  + 
4 


4  CALCULATE  CUMULATIVE  COMBINED  D»TA  POINTS  AND  APPLY  PERCENTAGE  ♦ 

♦  DIEEERENCE  TO  THOSE  DATA  POINTS  RESULTING  IN  NEW  EE1*  CUMULATIVE* 

♦  DATA  POINTS .CALCULATE  NEW  FFM  CRATE  3Y  DIVIDING  CUMULATIVE  DATA* 

+  POINTS  9  Y  THE  PREVIOUS  CUMULATIVE  DATA  POINTS.  ♦ 

♦  ♦ 


►444444+4444* 


DO  13  1*1. 3C 

NEWwOM  1 1 )  =0. 0 
IE(I.GT.I)  THEN 

SPCC0M(I)=SPCC0MI)*SPCC0M(I-1) 
END1  E 

SPCWO.M(I)=SPCCOM(I)«OVRPCT(I) 
IF<(I.GT.1  J.AND.CSPCWOM(I-I)  .GT.O.O) 
NEWWOM(I) =$PCWOM( I ) /SPCWO*( 1-1 ) 

END  I  E 

IF(I.EO.I)  THEN 

NEWWOM ( I ) =SPCWOM(  I  ) 

ENDI  E 

IF (NEWWOM(I).GE. 1.005  THEN 
NFWWOIMC  15*0.599 

SPCWON(l)*SPCUOM(I-15»NEWUOM(I5 
ENDI  E 
ENDDO 


THEN 


'4+444+++++4+4* 


♦  WRITE  NFW  CRATE  DATA  TO  FILE  13 


♦  4  4  4  4  4  4  < 


>+444++4+++++++4+4+4++++< 


.4+4+44+4+ 


WRITE (13,25)  IC»E, (NEWwOM(l) , 1=1,10) 
-RITE(13,26)  (NEWWOM(I) ,1=11 ,20) 
WRITE (13,26)  (NEUWOM(I) ,1=21 ,30) 
F0RMAT(I2,10('.  jF4.3)) 

FORMAT (9( F4. 3  ,  ,  )  ,E4.3) 


«RITE(15,5C)  I C  m  f 

FORMAT (  '  ' , IQX , 'SPC ' , I  3, 1 x  ,  '  CONTINUATION  RATE  C  A  T  A  '  /  /  1  1  X  ,  3  C  (  '  -  '  )  ) 
wRITE(15,51) 

FORMAT ( '  ,10X,  CUM  , 5X»'CUM-FEM  ,6X,2(  CUM-SPC  ,1X), lx,  GIVEN', 5X 

,'CALC') 

■RITE (15,52) 

format ( '  ',iox, 'overall', lx, 'overall', ix,'pct',2x, 'overall', ix,2(' 

FEMALE', 3X), IX, 'FEMALE') 

wRITE(15,53) 

F0RMAT('  '.6X,'Y0S'*1X, 'CRATE', 3X, 'CRATE', 3x,'DIFF',1x,2('CRATE', 3 
X), IX, 'CRATE', 5X, 'CRATE'/) 

DO  60  1=1.30 

WRITE(15,55)  I,CVRCOM(I),OVRwOm(I),OVRPCT(I),SdCC0m(I),SPC*0*(I 

)  , S AVWOM  (  I  )  , NEWWOM (  I  ) 

FORMAT!'  ',6X,I3,2X,F4.3,4X,F4.7,3X,F4.?,2X,F4.7,4x,E4.5,5x,E4 
. 3 , 6X , f a  . 3) 

ENDDO 

CALL  GRAPH(SPC»OM) - X  ®1) 

GO  TO  11 
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244 

245 

246 

247 
2  4  S 

249 

250 

251 

252 

253 

254 

255 
25  6 
257 
253 

259 

260 
261 
262 

263 

264 

265  1  1 

266  10 
267  C 
263  C 

269  C 

270  C 

271  C 

272  C 

273  C 

274 

275 

276 
2  77 

278 

279 
250 
2  ?  1 

252 

253 
2  ?  4 
2?5 

256  U 

257 
2  ?9 
259 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 
306 
309 
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SUBROUTINE  GEAPH(POINTS) 

REAL  POINTS(30) 

INTEGER  I,J,K 

CHARACTER  GRATC23 ,64  )  *1  ,NUM(1  0)  *1 

DATA  (NUM(I)  ,1  =  1,10)  /'1','2','3','4','5','6','7','S 


♦  BUILD  X  ANO  Y  AXIS  SYSTEM 

4 


DO  10  1=1,2? 

DO  11  J  =1 ,64 

GRAF(I,J)='  ' 

IF( (J.EQ.4) .AND.d.LE.21))  THEN 
G  R  A  F  ( 1  ,  J)='+' 

END  I  F 

I  F  (  (I  .EQ  .21 )  . AND . ( J .GT.4 ) )  THEN 
GRAF  (1  ,.!)='♦' 

E  NO  I  F 
ENDDO 
ENDDO 


♦  LABEL  AXIS  SYSTEM 

♦ 

44444- 

J=9 

DO  12  1=1 ,21 ,2 
G  R  A  F (1 , 3 ) -  0 ' 

IFfI.EO.1J  THEN 
6RAF(I,1)='1' 

GPAF<  I  ,2) ='0' 

ELSE 

IFd.LT.21)  THEN 
GRAF (I  ,2) =NU" ( J ) 
J=J-1 
ENDIF 
END1F 
ENDDO 
1=1 

DO  13  J=6,64,2 

IFU.LE.22)  THEN 

GRAF(22,J)=NU»d) 

1=1*1 

ELSE 

IFO.LE.42)  THEN 
GRAF(22,J)='1' 

GR AF  (23  ,  J ) =NUM ( I ) 

1  =  1  +  1 

IFd.GT.1C)  THEN 
1=1 
ENDIF 
ELSE 

TFd.LE.62)  THEN 
GPAF(22,J)='2' 
GRAF  (22 , J ) =NUM ( 1 ) 
1*1  +  1 

IFd.GT.10)  THEN 
1  =  1 
ENDIF 
FLSE 

GRAF(22, J)='3' 


'9','0'/ 

4444444444444444444444444 

♦ 

♦ 

. 


•44444444444444444 


1 
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310 

311 

312 

313 

314  13 

315 

316 

317 
118 


319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329  15 

330 

331 

332 

333 

334 

335 

336 

337 
33S  20 

339 

340 

341  22 

342  19 

343 

344  24 

345 

346 


GRAF(23,J)='0' 
END  I  F 
END  I  F 
END1  F 
END00 


♦  PLOT  DATA  POINTS 


************* 

* 


>***************■ 


1=1 

DO  15  J  =6  •  6 4  » 2 

K=IFIXC<21.0-(POINTS(I)«100.0)/5.0)*0.5) 
I F< (K. GT.O) . AND. (K. LT.21  )  )  THE  N 
GRAF<K,J)='*' 

ENDIF 

1=1*1 

ENODO 


♦  «RITE  orSPLAT  TO  FILE  16 


♦ 
* 
* 

***************************** 


-RITE(16,20) 

FORMAT ( *  ',13X,'X  FEMALE  OFFICERS  REMAINING') 
DO  19  1=1.23 

URITE(16,22)  <GRAF(I,J),J=1,64) 

FORMAT ('  '  f  6  4  A  1 ) 

ENDDO 

-RITE (16,24) 

FORMAT(/,25X,'YEAR  OF  SERVICE') 

<--RETURN 

END 


